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Editorial 



La importancia de la norma 
MSX, se pone una vez más de 
manifiesto gracias a las 
constantes innovaciones que el 
agitado mundo de la 
microinformática nos depara casi 
a diario. De nuevo debemos in- 
sistir en la superioridad tecnoló- 
gica de un estándar 
injustamente vilipendiado por 
unos pocos que desconocen las 
verdaderas posibilidades lúdicas 
e incluso profesionales del 
lenguaje. Este mes junto a las 
secciones que caracterizan a 
nuestra/vuestra revista, 
incluimos un detallado informe 
de nuestro colaborador Ronald 
Van Ginkel sobre la nueva y 
revolucionaria aportación de la 
poderosa multinacional nipona 
Sony, en el campo de los sistemas 
interactivos. Una información 
obligada e imprescindible para 
todos los usuarios de MSX, esta 
gran familia que nos 
caracterizamos por la avidez con 
que absorbemos cualquier 
adelanto relacionado con nuestra 
apreciada norma, y todo lo que 
suponga un paso adelante en el 
desarrollo de nuevas 
prestaciones o mejoras de la 
configuración. Y tratándose de 
un aumento del hardware 
disponible para MSX, la noticia 
tiene mucha más importancia. 
Por otra parte, Joaquín López 
dedica a todos aquellos que 
dudan de las características y 
funcionamiento del MSX dos, un 
exhaustivo repaso a esta 
tecnología en todos sus aspectos. 
Ya conocéis nuestra especial 
"manía": informar, 
puntualmente, con objetn 
rigor. Bienvenidos al número 
veintinueve. 

MANHATTAN TRANSFERIA. 
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Línea directa 






UN PROGRAMA 
DE HORARIOS 



Estoy buscando un pro- 
grama muy útil que necesita- 
mos los usuarios. Se trata de 
un programa que haga toda 
clase de HORARIOS y que 
los pase a cinta, disco e im- 
presora. Los horarios debe- 
rían ser, por ejemplo, para 
un instituto previéndose 
que un profesor no pueda 
estar en dos clases al mismo 
tiempo, y de modo que los 
horarios sean flexibles.. 

Se trata de un programa 
que necesita mucha gente. 
José V. Carrión Darder 
ADRA (Almería) 

Reco 

de realizar un programa que 
gestione todo tipo de horarios 
puede ser un reto apasionan- 
te. Es además, como muy 
bien dices, de gran utilidad 
para una gran cantidad de 
gente (Institutos, Gimnasios, 
y demás). 

Lamentablemente nuestro 
departamento de programa- 
ción se encuentra bastante sa- 
turado. Pensad que muchos 
de los programas publicados 
en cinta por el MSX Club de 
Cassettes han sido desarrolla- 
dos por colaboradores, fuera 
del departamento de progra- 
mación. 



DE CINTA A DISCO 



Me gustaría saber cómo 
puedo pasar un programa 
en BASIC de cinta a disco. 

Agustí Obrador 
Prats de Llucanés 
(BARCELONA) 

Pasar un programa en BA- 
SIC de cinta a disco es algo 
realmente sencillo. No ocurre 
lo mismo con los programas 
en ensamblador, que suelen 
ser laboriosos de pasar a dis- 
co. 

Los pasos que debes seguir 
son los siguientes. 

1- Carga el programa del 
cassette con CLOAD (o con 
LOAD"Cas. " si es el caso). 



2.— Graba el programa en 
el disco con SA VE "nombre". 

Ya tienes en el disco una 
copia de tu programa en an- 
ta. Sólo existe un p.osible pro- 
blema, la falta de memoria. 
El BASIC dispone, cuando la 
unidad de disco está conecta- 
da, de menos memoria libre, 
por lo que no todos los pro- 
gramas en BASIC pueden ser 
cargados de la cinta. 

Si te ocurre esto prueba a 
repetir el proceso pero antes 
apaga tu ordenador y encién- 
delo manteniendo pulsada la 
tecla CTRL. Si así tampoco 
consigues copiar tu programa 
lamentamos decirte que no 
tienes suficiente memoria 
como para poder utilizarlo 



TEST DE LISTADOS 

En el programa "SKRAM" 
publicado en su número 26, 
de marzo del presente año, 
me señala un error en la lí- 
nea 360 (A=USR(0)). El ci- 
tado error es un error de sin- 
taxis. He modificado dicha 
línea de mil maneras y per- 
siste el error. Les ruego me 
indiquen cuál pudiera ser el 
motivo de tal error y, si es 
posible, la forma de subsa- 
narlo. 

Francisco Yagüe López 
Móstoles (MADRID) 

Ocurre en muchas ocasio- 
nes, y este es tu caso, que un 
error cometido en una línea 
se manifiesta en otra muy di- 
ferente. Este tipo de errores 
suelen aparecer con bastante 
frecuencia y es muy difícil so- 
lucionarlos si no se tiene una 
ligera idea de programación 
en BASIC. En tu caso es algo 
más complicado, ya que de- 
bes haber cometido algún 
error en la introducción de 
las líneas DATA, o bien en la 
rutina que carga esas datas en 
la memoria. 

Como hemos dicho, este 
tipo de errores son bastante 
frecuentes y suelen caracteri- 
zarse porque, en la mayoría 
de los casos, indican un Ule- 



gal Function Callin xxxx. En 
tu caso, lo que ocurre es que, 
al cargarse mal la rutina en 
ensamblador que incorpora 
el programa ésta no funciona 
correctamente, marcando el 
Syntax Error al que aludes en 
tu carta. 

Respecto a la forma de sub- 
sanarlo, muy fácil. Sólo debes 
utilizar el test de listados (y lo 
hemos dicho ya docenas de 
veces) que te indicará la línea 
en que has cometido el error, 
siendo entonces muy fácil de 
corregir. El programa test de 
listados puedes conseguirlo a 
través del MSX Club de Cas- 
settes ya que existe una cinta 
que contiene esta utilidad. 
Puedes además si lo deseas, 
adquirir la colección de nú- 
meros 5-6-7-8 también pi- 
diéndonoslo directamente a 
Manhattan. 

ZAVPOCKMSX-2 

Nada más ver en su revis- 
ta el juego Zaydock me inte- 
resé por él y, tras comprobar 
su calidad, lo adquirí. Pero 
el iuego viene en disco de 
doble cara y mi ductora los 
usa de una sola cara. Tras 
conseguir copiar el progra- 
ma a un disco de una sola 
cara conseguí ver la pantalla 
de presentación; pero no 
conseguí poner en marcha el 
juego. ¿Existe algún modo 
de que dicho juego funcione 
en mi ductora de simple 
cara? 

He observado que en va- 
rias versiones de un mismo 
juego las direcciones de car- 
ga son diferentes. ¿A qué 
puede ser debido esto? 

¿A qué se debe que juegos 
originales como Zaxxon o 
Profanation no funcionen 
en mi ordenador incluso 
después de haber introduci- 
do unos POKES que me in- 
dicaron en Philips? 
Manuel Martínez Martínez 
Esplugues de Llobregat 
(BARCELONA) 

Tu primer problema es, 
verdaderamente, un proble- 
ma. El juego original está 
protegido, por lo que cual- 



quier intento de copiarlo en 
un disco de simple cara será 
infructífero. Para ello preci- 
sarías de un copión de discos 
protegidos. 

A tu problema sólo se nos 
ocurren dos posibles solucio- 
nes. Una es ponerte en con- 
tacto con los distribuidores 
del programa para que inten- 
ten solucionar tu problema y, 
en último extremo, puedes 
intentar localizar un copión 
de discos protegidos, ya que 
tenemos la certeza de que cir- 
cula "extraoficialmente" uno 
de estos programas. 

Respecto a las direcciones 
de carga de algunos juegos lo 
más normal es que se trate de 
copias piratas desprotegidas 
por piratas distintos. Piensa 
que cada pirata desprotege de 
una forma original de modo 
que en ocasiones es fácil reco- 
nocer al autor de una copia 
por el método utilizado para 
realizar. Pudiera ser también 
que se tratase de dos versio- 
nes del mismo juego, grabado 
en posiciones de memoria di- 
ferentes por el propio diseña- 
dor del mismo. 

Por último, hemos de de- 
cirte que los famosos "PO- 
KES" que hacen que ciertos 
programas funcionen en los 
MSX-2 no son infalibles, sino 
todo lo contrario. Esperamos 
sin embargo que el problema 
se solucione lo antes posible. 

RTTY EN LOS MSX 

Quiero obtener software 
acerca de TX/RX para 
RTTY con MSX. ¿Hay al- 
gún programa para esta má- 
quina? 

Indíquenme qué unida- 
des de discos hay en el mer- 
cado para ampliar mi equi- 
po. 

Esteban Anglés Ricard 
GRANOLLERS 
(Barcelona) 

Hemos de comentarte que, 
desgraciadamente, no cono- 
cemos ningún programa co- 
mercial de RTTY para los 
MSX. Sin embargo existen 
numerosos aficionados a este 
tema que intentan ponerse en 
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tacto y compartir sus pro- 
mas (hechos artesanal- 
mente) sobre este tema. 

Podemos decirte que en 
nuestra sección "Tablón de 
Anuncios" ha aparecido ya al- 
gún anuncio de aficionados 
que disponen de este tipo de 
programas. 

Sobre las unidades de disco 
existentes en el mercado, son 
muchas. Prácticamente cada 
fabricante de MSX dispone 
de la suya propia. Cualquiera 
de ellas será adaptable a tu 
aparato, aunque tal vez te in- 
terese que sea de 720 Kb, 
como la que cuentas ya en tu 
aparato. Es preferible para 
ello, que te pongas en contac- 
to con el distribuidor de in- 
formática más cercano o con 
el fabricante de tu ordenador. 



DESENSAMBLADOR MSX 

Quería preguntaros cómo 
se puede listar en pantalla 
una cassette y un cartucho 
de juegos. ¿Qué es un de- 
sensamblador? 

Tengo un HIT-BIT- HB- 
10P y el carácter & no lo ten- 
go en el teclado. ¿Es mi or- 
denador diferente? 

Daniel García Peris 
BARCELONA 

A tu primera pregunta he- 
mos de decirte que los orde- 
nadores MSX funcionan en 
BASIC, por lo que no existe 
ninguna instrucción que per- 
mita listar los programas de 
juegos (sean de cinta o cartu- 
cho) que estén hechos en len- 
guaje ensamblador. 

Para realizar esta tarea 
existe, precisamente, un pro- 
grama denominado desen- 
samblador cuya misión es, 
dado un programa en código 
máquina, listarlo en ensam- 
blador. 

Finalmente hemos de de- 
cirte que, si no conoces len- 
guaje ensamblador no te ser- 
virá de nada poder acceder al 
listado. Además, acceder al 
listado del programa de un 
cartucho es una tarea ligera- 
mente complicada. 

Respecto a tu segunda pre-. 
gunta, no, tu ordenador no es 
diferente. El símbolo "&" al 
que te refieres es AMPER- 
SAND. Este símbolo se en- 



cuentra situado en el teclado 
del ordenador sobre el 7 y, 
por tanto, para obtenerlo de- 
bes pulsar la tecla 7 mientras 
mantienes pulsado SHIFT. 

Hemos de decir, sin em- 
bargo, que la tipografía con la 
que realizamos las revistas 
hace que este símbolo parezca 
ligeramente diferente. Espe- 
ramos por tanto que queden 
así aclaradas tus dudas. 

Te recordamos que el sím- 
bolo "&" es utilizado por el 
BASIC para que podamos in- 
dicarle una base de numera- 
ción diferente a la decimal. 
Así, si hacemos 

PRINT&B10 
aparecerá en la pantalla el 
número 2, ya que 10 en bina- 
rio "&B" es 2 en decimal. De 
igual forma podemos hacer 
con las bases octal "&O" y he- 
xadecimal "&H". 

ACORDES EN LOS MSX 

Quisiera saber cómo ha- 
cer acordes para los progra- 
mas musicales y también 
cómo poder insertar estos 
acordes dentro del progra- 
ma. 

César de Caralt 
BARCELONA 

Realizar acordes en los 
MSX es muy sencillo gracias 
a la existencia del macroco- 
mando PLAY. Antes de nin- 
guna explicación teórica va- 
mos a darte un ejemplo prác- 
tico. Las siguientes líneas ha- 
rán sonar en tu ordenador un 
acorde de DO mayor. 
PLAY"C", "E", "G" 

Para generar acordes debes 
dividir la pieza que quieras 
tocar en tres líneas melódicas 
simples. Es decir, si debes ge- 
nerar tres melodías sin acor- 
des que, tocadas simultánea- 
mente den lugar a la melodía 
con acordes. Aquellos lugares 
en que no necesites la utiliza- 
ción de acordes puedes relle- 
narlos con silencios, como se 
hace en una partitura con- 
vencional entre las claves de 
SOL y de FA. 

Estas tres líneas melódicas 
deben insertarse tras el co- 
mando PLAY separadas por 
una coma. Esmeramos que 
con esto puedas conseguir 
acordes en tus programas. 



Especial para nuevos 
usuarios. 

Para que ningún lector 
quede al margen te propo- 
nemos una nueva sección/ 
concurso. 

¡Participa con tu pe- 
queño programa de gráfi- 
cos, sonido, juego o truco! 



BASES 

1. ° Podrán participar to- 

dos nuestros lectores, 
cualquiera que sea su 
edad. 

2. ° Los programas se re- 

mitirán grabados en 
cassettes debidamente 
protegidas dentro de 
su estuche plástico. 

3. ° No se admitirán aque- 

llos programas plagia- 
dos o editados por 
otras publicaciones. 

4. " Las mejoras a los pro- 

gramas se considerarán 
una aportación al mis- 
mo y se publicarán en la 
sección Línea Directa. 



PREMIOS 

5. " MSX CLUB premiará 

aquellos programas 
publicados con 2.000 
pts. 

6. ° MSX CLUB se reserva 

el derecho de abonar 
los premios en metáli- 
co o su equivalente en 
software, haciéndolos 
efectivos a los 15 días 
de publicados. 

FALLO Y 
JURADO 

7. ° El Departamento de 

Programación actuará 
como jurado y su fallo 
será inapelable. 

8. " Los programas remi- 

tidos no se devolve- 
rán, siendo destruidos 
aquellos que no sean 
seleccionados. 
10.° El plazo finalizará el 
30 de junio de 1987. 
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MEMORIA 


EF 


J LOS MSX-2 




SONY MSX-2 HB F9S. 

Recientemente adquirí el 
ordenador MSX-2 HB-F9S 
de Sony, y anteriormente te- 
nía un HB-75P. Me he en- 
contrado con las siguientes 
"sorpresas". 

Ambos poseen la misma 
cantidad cíe memoria libre 
(28815 caracteres). ¿Es que 
no es posible hacer un pro- 
grama con 40000 caracteres 
en BASIC? 

Cuando tengo conectada 
la unidad de disco la memo- 
ria queda reducida a 24 Kb 
con lo que no me es posible 
grabar en disco programas 
mayores. Puedo cargarlos, 
sin embargo si desconecto la 
unidad de disco. ¿Pero de 
qué me sirve entonces? 

Juegos que cargaban en 
disco perfectamente con mi 
HB-75P no lo hacen ahora 
en el MSX-2. ¿A qué es de- 
bido? 

Antonio Ortiz Molina 
BARCELONA 

A pesar de la longitud de 
tu carta intentaremos respon- 
derte de una forma clara y 
sencilla sin extendernos de- 
masiado. 

El problema de la limita- 
ción de memoria es una de las 
limitaciones estructurales de 
los MSX (tanto de la primera 
como de la segunda genera- 



ción). El chip central de los 
MSX es un Z-80A, que sólo 
puede controlar 64 Kb de me- 
moria. Como 32 Kb son utili- 
zados por la ROM, sólo nos 
quedan 32 Kb libres. Estos 
32 Kb se distribuyen en 4 
para variables y otras necesi- 
dades del BASIC y 28 Kb li- 
bres. 

En caso de que conectes la 
unidad de dfrco se necesita- 
rán 4 Kb más para poder ma- 
nejarla. 

Desgraciadamente, y aun- 
que hemos hecho algunos es- 
fuerzos por conseguirlo, aún 
no hemos podido desarrollar 
una rutina que solvente este 
problema. Puedes, sin em- 
bargo, utilizar esta memoria 
siempre que trabajes desde 
ensamblador o bien si utilizas 
programas hechos en este len- 
guaje. ^ 

mas que no funcionan, he- 
mos comentado repetida- 
mente que se trata de incom- 
patibilidad de los propios 
programas, que no cumplen 
las normas MSX. Muchos 
usuarios, sin embargo, y no- 
sotros con ellos están inten- 
tando solventar este proble- 
ma que parece, cada día más, 
en vías de solución. Un poco 
de paciencia. 
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SKY HAWK. Un magnifico Juego de simula- 
ción de vuelo. En él te conviertes en un piloto 
que ha de derribar al enemigo y regresar al 
portaaviones sano y salvo. PVP. 1.000 pts. 




LORD WAT80N. Este es un Juego muy original 
que combina el laberinto con las palabras 
cruzadas. Los obstáculos fantásticos y el vo- 
cabulario son los alicientes . PVP. 1.000 pts. 



mcim 




MATA MARCIANOS. Un Juego clásico en una 
versión cuya mayor virtud es su diabólica ve- 
locidad que aumenta a medida que superamos 
las oleadas de los Invasores eitraterrestres. 
PVP. 900 pts. 



CON GARANTIA 



VAMP1RE. Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murcié- 
lagos, fantasmas, etc. Un Juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP. 800 Pts. 



HARD 



ira 




POR JOAQUIN LOPEZ 

Menua por vonUou - tras 
formato» de copla* simulación 
en blanco y negro copla 
eprltea redefíne color** 
compatible con cualquier 
tmpreaora matricial 



CON GARANTIA 



HARD COPY. Para copiar pantallas. Tres 
formatos de copias, simulación por blanco y 
negro, copla sprites, redefinic. de colores, 
compatible con todas las impresoras ma- 
tríc. PVP. 2.500 Pts. 




¿Cómo corregir los errores 
de transcripción de los 
programas? 
La solución a los errores en 
los programas es este TEST 
DE LISTADOS. 



CON GARANTIA 

/VlAN-WlANTIWig=ER: 



TEST DE LISTADOS. El í _ 
la 8eríe Oro es el útilísimo Test que te permi- 
tirá controlar la corrección de los . 
mas que copies de MSX C 
PVP. 500 Pts. 



KRYPTON 



m 




KRYPTON. La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Dn juego cuya popularidad es cada 
vez mas grande entre los usuarios del MSX. 
PVP.500Ptas. 



Ü-BOOT. Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas. 



con garantia 

/1/^/^jn]TWOT?SA 



QUINIELAS. El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 




SNAKE. Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella PVP. 600 Ptas. 




EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. ¡Atrévete sí 
puedes! PVP. 700 Ptas. 



STAR RÜNNER. Conviértete en el audaz 
piloto interestelar y lucha a muerte, a 
través del hiperespacio, contra las defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad PVP. 1.000 pts. 



FLOPPY, El Preguntón. Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Floppy no perdona y te costara 
mucho superarlo PVP. 1 .000 Ptas 



MAD FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su misión Diez niveles 
de dificultad. PVP 1.000 pts. 



Si qulerespecibir por wrre^cer^wdo^ta^aswtt^gar^tiMdafl^recorta o copla este boletín y envíalo hoy mismo : 

Nombre y apellidos: 

I Dirección: 



Población: 



□ KRYPTON 

□ UBOOT 



CP 



Prov. 



Tel.: 



| □ QUINIELAS 
I □ HARDCOPY 



□ LORDWATSON 







Ptas. 500,- □ 8NAKE Ptas. 600,- □ FLOPPY 

Ptas. 700,- □ EL 8ECRET0 DE LA PIRAMIDE Ptas. 700,- □ MADFOX 

Ptas. 700- □ 8TAR RÜNNER Ptas. 1.000,- □ VAMPIRO „ 

Ptas.2.800,- □ TB8TDELI8TAD08 Ptas. 600,- □ 8KY t » mr 



Ptas. 1.000,- □ 



, Pt&fí. 900, 



... Ptas. 1.000,- 

,.. Ptas. 1.000,- 

,. Ptas. 800- 

... Ptas. 1.000,- 



I Gastos de envío certificado porcada cassette Ptas. 70,- Remito talón banoarlo de Ptas a la orden de Manhattan Transfer, 8 Aj 

ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 

Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 
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Tablón de anuncios 



Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a dos inserciones totalmente gratuitas. Las características 
de esta sección no permiten la inclusión de anuncios con fines de lucro. Advertimos que la desprotección y copia de software original es 
un acto delictivo perseguido por la ley. 



Vendo videojuegos Philips G- 
7000 con seis cartuchos de jue- 
gos por 10.000 Ptas. Santi San- 
doval. Rbla. Justo Oliveras n.° 
69. Hospitalet. BARCELONA 
CP.2. 

Vendo cartuchos de Konami: 
A. Land, H. Sport I, Tennis, 
cada uno 4.000 Ptas. y los tres 
1 1 .000 Ptas. También vendo 
joystick Sanyo por 3.200 Ptas. y 
otro Aristón por 1.000 Ptas. M. 
Garrido Pareja. Tlf: (968) 22 28 
52. Bib-rambla22 1 "GRANA- 
DA. CP.2. 

Vendo ordenador Sony HB- 
75P de 80 Kb, poco uso, cables 
de conexión y manuales y va- 
rios programas comerciales por 
40.000 Ptas. Gustavo Cela. Tlf: 
21 67 93. C/. Poeta CabaniUas 
n." 10-12 piso 3.° izq. 27004 
LUGO. CP.2. 

Vendo Spectravídeo 328, ex- 
pander 605B, varios programas 
en CP/M (WordStar, CalcStar, 
ReportStar, Data, Contabili- 
dad), y monitor de fósforo ver- 
de. Alberto Navarrete. Tlf.: 
(91)255 06 55. CP.2. 
Cambio 25 juegos, 10 cartu- 
chos y el resto originales en cin- 
ta. CP.2. 

Busco Green Beret, Jail Break y 
Nemesis. Mis 25 juegos por es- 
tos tres. Luis Escudero García. 
Casablanca 11. 04740 Roquetas 
de Mar. ALMERIA. CP.2. 
Vendo Joystick Quickshot II, 
precio a convenir. Angel Peña. 
C/ O. Basulto 95. Torreperogil. 
23320 JAEN. Tlf.: (953) 77 60 
24. CP.2. 

Cambio tres juegos. Zaxxon, 
Chiller y Speed King originales 
por Gunfright (original). Ma- 
nuel Romeu. C/ M. a Rosa Mo- 
les n."27, 1.° 1. a . 43500 Torto- 
sa. TARRAGONA. CP.2. 
Compro cartucho de amplia- 
ción de memoria para ordena- 
dor Sony MSX. José Fernando 
López. Tlf.: 21 08 63. ZARA- 
GOZA. CP.2. 

Vendo juegos originales a 300 
Ptas. También vendo cartuchos 
Konami originales por 2.000 
Ptas. Estoy interesado también 
en una ar 
Paco. 
CP.2. 

Vendo Sony HB-55P con am- 
pliación de memoria de 64 Kb y 
muchos programas por 35.000 
Ptas. Angel Lafuente Esteban. 
C/ Alférez Provisional, 1, 4.° 
42003 SORIA. CP.2. 
Vendo PhUips VG-8000 de 48 
! — 



Kb con manuales en castellano, 
10 programas comerciales, más 
de 20 revistas MSX CLUB, ca- 
bles de conexión, procesador 
de textos y hoja de cálculo, 
todo comprado hace un año. 
Todo por 36.000 Ptas. (discuti- 
bles). Fernando Alabán Albe- 
ro. Virgen de Guadalupe 13, 
2.° Iz. Villena. ALICANTE. 
Tlf.: (965) 80 38 33 y 80 47 70 
CP.2. 

Vendo HIT-BIT 55P con ma- 
nuales en castellano, cables, 
etc. Precio a convenir. Pablo 
Gil. Tlf: (986) 27 49 57 a partir 
de las 8 de la tarde. Vigo. PON- 
TEVEDRA. CP.2. 
Vendo Booga-Boo y Time 
Curb a 2.500 Ptas. Escribir a: 
C/ Belinda n.° 5. Montaña los 
Vélez (Agüines). Gran Canaria. 
35259. CP.2. 

Vendo Philips VG-8000 MSX 
de 32 Kb y expansión de 16 Kb, 
cables, libro de manejo y varios 
programas. Todo por 30.000 
Ptas. José Manuel Vera Vil- 
ches. C/ Escritor José de los 
Heros n.° 3. 14014 CORDO- 
BA. Tlf.: (957)25 47 24 ó 27 48 
67. CP.2. 

Cambio MSX Código Máquina 
de la editorial DATA BECKER 
por otro libro de la misma co- 
lección o lo vendo al precio de 
1.800 Ptas. Javier Hernández. 
Tlf.: 242 99 44. S.Jerónimo 24. 
08001 BARCELONA. CP.2. 
Vendo ordenador Philips MSX 
VG-8020 de 80 Kb, sin estre- 
nar, por sólo 25.000 Ptas. Da- 
vid Altafaja Albert. Tlf.: 21 1 85 
95. BARCELONA. CP.2. 
Vendo MSX con cartucho de 
16 Kb y Spectrum + con inter- 
face Kempston con programas, 
libros, revistas, etc por 20.000 
Ptas. cada uno. Alfonso Mon- 
toya Albax. ALMERIA. Tlf: 43 
16 12. CP.2. 

Vendo superexpander con dos 
discos para SVI-328 por 75.000 
Ptas. cartucho de 80 columnas 
por 15.000, monitor f. verde 
por 17.000. Regalo DBASE II, 
WORDSTAR, etc. Venancio 
Gancedo. Tlf.: (942) 33 98 69. 
SANTANDER. CP.2. 
Vendo 10 programas MSX ori- 
ginales por sólo 2.400 Ptas. Hy- 
per Sports III, Sweet Acorn, 
etc. Teresa Martín. C/ Villaba- 
ñez, 26. 47320 Tudela de Due- 
lo. VALLADOLID. CP.2. 
Vendo Sony HB-101P, 20 jue- 
gos comerciales y cassette espe- 
cial para ordenador por 30.000 



Ptas. David. Tlf.: (958) 12 32 
15 (horas comida). GRANA- 
DA. CP.2. 

Compro juego Atlethic Land o 
bien lo cambio por uno de es- 
tos: Track&Field I, Fútbol, 
Soccer, Monkey Academi, etc. 
Franciso Javier Orellano Liza. 
C/ Mariano Versara n.° 7, 5.° 
Atico. 30003 MURCIA. CP.2. 
Vendo ordenador SVI-328 con 
Superexpander 605B de dos 
unidades de disco, doble cara 
doble densidad, e impresora 
Seikosha con cable y tarjeta 
centronic. Todo por el 50% de 
su valor según facturas de com- 

&ra. En perfecto estado. Jacinto 
loreno Aguilar. Avda. de Cá- 
diz, n.° 10. 14009 CORDOBA. 
Tlf.: 29 90 63. CP.2. 
Vendo o cambio por impreso- 
ra, unidad de disco o periféri- 
cos y programas, 1 radio-cas- 
sette STEREO marca SONY 
cfs55L, y 1 cámara réflex marca 
Zenith con objetivo y flash elec- 
trónico. Juan Manuel Elices. C/ 
Larrágain n° 6, 3.° D. Mondra- 
gón. GUIPUZCOA. Tlf.: (943) 
79 80 64, de 19 a 22 h. CP.2. 
Cambio juegos originales de 
Konami (Yie Ar Kung-Fu, 
Knight-Mare, etc), de Erbe 
(Avenger, Desolator, Basquet) 
por Green Beret, Goonies, Ne- 
mesis, Batman, Deus ex Machi- 
na, y otros. Carlos Angulo. C/ 
Sant Felip de Roses n.° 45. Ba- 
dalona. BARCELONA. Tlf.: 
384 02 14. CP.2. 
Cambio por un cartucho u 
otros programas estos 5 origi- 
nales: Chuler, Octagon, M-47, 
Space Walk, Fórmula- 1. Tam- 
bién los vendería a 1.250 Ptas. 
Antonio Plaza. C/ Barceló, 6- 
2. a . 28004 MADRID. CP.2. 
Cambio Hyper Sports III en 
cartucho por Super Cobra o 
Hyper Raíly en cartucho. Ale- 
jandro. Tlf.: (91) 315 72 00 a 
partir de las. 17 h. CP.l. 
Vendo ordenador Philips 8020 
de 80 Kb y magnetófono Phi- 
lips. Precio a convenir. Alfonso 
Ramos. C/ Altozano 3. Villa- 
franca de los Barros. BADA- 
JOZ. Tlf. : (924) 52 07 67. CP. 1 . 
Compro ampliación de 64K o 
de 80K en cartucho para MSX. 
Manuel J. Bailón. C/ Sagrado 
Corazón, n.° 13, 3-1. 27003 
LUGO. Tlf.: 22 99 01. CP.l. 
Compro o cambio por los jue- 
gos Knight Lore, Gunfright, 
Knight Shade, Jack the Nipper, 
Alien8,WülyII,bounder,Val- 







kyr y Show Jumper, todos origi- 
nales por un cartucho de am- 
pliación de memoria SONY de 
64 Kb. Ramón Ribalta. C/ Fi- 
gueroles n.° 5," 1.°. 12006 CAS- 
TELLON. CP.l. 
Cambio 13 juegos como RI- 
VER RIDE, KAGE, etc. y 27 
revistas por uno de los siguien- 
tes: GREEN BERET, KONA- 
MI, HYPER RALLY, KONA- 
MI'S SOCCER, YIE AR 
KUNG FU 2, KARATE, BAS- 
KET. Pablo López Parrón. C/ 
Peñalara 24 6.° A. 28760 Tres 
Cantos. MADRID. Tlf.: (91) 
803 13 09. CP.l. 
Vendo ordenador Sony MSX 
en condiciones de estreno. In- 
teresados indicar oferta, siendo 
el coste del aparato de 40.000 
Ptas. Sr. Pedro García Espasa. 
C/Cienfuegos 13,2.°2. a . 08027 
BARCELONA. CP.l. 
Vendo Spectravídeo SVI-328, 
lectograbadora SVI-904, 
QuickShott II, 3 cintas de jue- 
gos y otra de introd. al BASIC, 
manuales en inglés y español y 
un libro de programación avan- 
zada por sólo 35.000 Ptas. Jesús 
Corrales. Tlf.: 467 13 84. Eran- 
dio. BISKAIA. CP.l. 
SADA CLUB-MSX, primer 
Concurso Nacional de Infor- 
mática MSX. Pidan informa- 
ción sin compromiso. Santos 
Arias Llórente. C/ Peña Larzón 
n.° 5, 5AD. 24008 LEON. 
CP.l. 

Vendo ordenador MSX SVI- 
728 de 80 Kb de RAM, unidad 
de disco doble cara SVI-707, 
monitor color Philips y cassette 
especial para ordenador SA- 
NYO DR-303. Tlf: 256 05 49. 
Llamar de 2 1-22 H. Jaime San- 
cho. BARCELONA. CP.l. 
Vendo cassette recorder espe- 
cial para ordenador, modelo 
PHILIPS D-6020, por 5500 
ptas. Está valorado en 1 1000 y 
tiene un mes de uso. Jacobo. 
Tlf: (965) 222538 a partir de las 
7 de la tarde. CP.l. 
Vendo Philips VG-8010 MSX 
con muy poco uso. Se incluyen 
todos los cables, embalaje ori- 
ginal, dos manuales de BASIC 
y algunos juegos. Precio a con- 
venir. Jaime Rodríguez Pérez. 
C/. Los Formidables 18, 2.° 
Drcha. Reinosa (Cantabria). 
CP. 39200. Tfl: (942) 752845. 
CP.l. 

Compro ordenador, unidad de 
disco, impresora, joystick, etc. 
Armando. Apartado 274. Tala- 
vera 45600. (TOLEDO). CP.l. 




Vendo SV1-318 y data cassette 
SVI-904 con manuales origina- 
les en inglés por 15000 ptas. 
Antonio Llena. C/. Diagonal 
345. Barcelona. Tlf: 257 89 32. 
CP.l. 

Compro ampliación de memo- 
ria, preferible de 64Kb, para 
HB-55P. Paco. Tlf: 618 38 67. 
Móstoles. MADRID. CP.l. 
Vendo unidad de cassette SVI- 
767 de Spectravídeo con un 
mes de funcionamiento. Precio 
a convenir. Juan Manuel Ló- 
pez. CV. Estadella, 90, 8 o 2 o 
4. a . Buen Pastor. BARCELO- 
NA 08030. CP.l. 
Vendo PHILIPS MSX VG- 
8010 casi sin usar, con la garan- 
tía, manual y todos sus acceso- 
rios. En perfecto estado y por 
sólo 20000 ptas. (negociables). 
Juan Antonio Lafuente. Tlf: 
(975)370152. CP.l. 
Contacto con usuarios de 
MSX-2 y MSX- 1 con unidad de 
disco para intercambiar todo 
tipo cíe información, trucos, 
ideas, etc. M.E. Martínez. C/, 
Alfonso I, 28. 50003 ZARA- 
GOZA. CP.l. 

Contacto Sácale partido a tu 
MSX formando tu propia peña 
de lotería primitiva. Llama y te 
informaré. Programa de reduc- 
ción de combinaciones según la 
estadística. Desde 7 hasta 49 
números. Miguel Angel. Tlf: 
96-3651052 de 5 a 8 tarde. Va- 
lencia. CP.l. 

Compro cartuchos ROM para 
MSX-2, como GOLF, TEN- 
NIS, FUTBOL, PING- 
PONG, CHESS, MAP y otros 
por el estilo. Lázaro de Soto. 
Apartado 300. 21080 HUEL- 
VA. CP.l. 

Vendo ordenador Spectraví- 
deo SVI-738 con unidad de dis- 
co 3.5" incorporada. Incluyo 
discos CP/M y MS-DOS y un 
disco con programas MSX va- 
lorados en 48000 ptas, instruc- 
ciones y manual de manejo en 
castellano por 70.000 ptas. Jor- 
di. Tlf: (93) 6544822. Fecha de 
compra del equipo, enero de 
1986. CP.l. 

Vendo procesador de textos en 
cartucho " HOME WRITER " 
de Sony por 4000 ptas. M. Gó- 
mez Rodríguez. C/. Pedro An- 
tonio de Alarcón 62, 1A. 
CP. 18002. Tlf: (958) 280376. 
GRANADA. CP.l. 
Vendo 8 juegos de Konami. 
Poseo, entre otros, Ping-pong, 
Konami's Tennis, Road Figh- 
ter, Sky Jaguar, Atlethic Land, 
etc. Todos por 4000 ptas. Qui- 
Quo.Tlf: (93) 85 12295, de 1*30 
a 4 tarde o bien a partir de las 
8'30 noche. BARCELONA. 
CP.l. 

Vendo SONY HB-75P de 80 
Kb y un procesador de texto. 




monitor- I V en color SONY 
todo ello nuevo. Se vende en 
conjunto o bien por separado. 
Precios a convenir. Miguel An- 
gel. Tlf: (91)279 67 97. CP.l. 
Vendo Mitsubishi ML-FXl, 
cables, manuales y cinta con 
juegos por 35000 ptas. José 
Luis Gutiérrez. C/. Subida del 
Guruguru, 3, 3.° Drecha. Tlf: 
274682. 39004 SANTANDER 
(Cantabria). CP.l. 
Cambio/vendo cartuchos 
MSX. Tengo muchos títulos 
(Avenger, Green Beret, Dam- 
busters, Las 3 luces de Glau- 
rung, etc.) Robert Buckner 
Muñoz. Hermanos Becerril 19, 
7.°A. 16004 Cuenca. Tlf: 
222326. CP.l. 

Vendo SONY HB-75-80 Kb, 
manuales, cables y muchos pro- 
gramas comerciales. Todo por 
40.000 ptas. Octavio Llop Sal- 
vado. CV. Córcega, 111, 1.° 4. a 
D. Tlf: (93) 230 16 92. 08029 
BARCELONA. CP.l. 
Cambio/ vendo juegos origina- 
les en cartucho. Tengo Sky Ja- 
guar, Green Beret, Xixolog, 
Chess y 3D Water Driver. Tlf: 
61 05 71. Juan Pastor Roldán 
Aviña. C/. Bami 21, 2°D. 
41013 SEVILLA. CP.l. 
Vendo cartridge-copy por 
5000 ptas. M. a Teresa Roca. C/. 
Ramón Llull, n.° 1, 3.° 2. a . 
25008 LERIDA. CP.l. 
Vendo MSX-2 Sony HB- 
F500P con unidad de disco de 
1 Mb. Teclado numérico. 128 
Kb de VRAM, conexión a mo- 
nitor. Sistema operativo y mu- 
chos juegos comerciales. 
100.000 ptas. Escribir a Luis 
Segura Salvador. C/. Castellini 
n.° 1, 3B. Cartagena. MUR- 
CIA. CP.l. 

Vendo ordenador Canon 
MSX, 80 Kb, unidad de disco 
de 3.5 pulgadas de 500 Kb, im- 
presora Philips 80 columnas y 
cálidad de letra, 100 cps. Base 
de datos en disco MS-BASE; 
cartucho MAP con Base de Da- 
tos, Procesador de Textos, 
Contabilidad, Gráficos, Comu- 
nicaciones, muchos juegos en 
cartucho y cinta, libros, revis- 
tas, joystick. Todo muy barato 
y en buen estado. Manuel. Tlf: 
253 84 89, tardes. CPfl. 
Cambio un psicodélico de tres 
focos con regulación de volu- 
men, etc., nuevo a estrenar. Un 
órgano CASIO PT-82 con cin- 
ta de canciones, cámara foto- 
gráfica y una maquinita de cua- 
tro pantallas por ordenador 
MSX. Carlos Ordóñez. C/. 
Montsant 8-10, 2.° 2. a . 08820 
El Prat de Llobregat. BARCE- 
LONA. CP.l. 



REGALATE UN LIBRO 
VITAL PARA EL 



UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El potente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción al 
lenguaje máquina. 



Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN 1. Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarín. El archivo 




I 




Deseo me envíen el libro de los s 
cual adjunto talón de 1.500 ptas. a 
HATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle n." 

Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en 
mi domicilio libre de gastos de envío o cualquier otro 
cargo. No se admite contrareembolso. 

Importante: Indicar en el sobre MANHATTAN 
TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos - 08023 BARCELONA 
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El basic paso a paso 



iPor Willy Miragall, 



LOS GRAFICOS 



Un apasionante mundo se abre 
ahora ante nuestros ojos; el 
mundo de los gráficos por orde- 
nador. 



VARIAS PANTALLAS EN 
UNA SOLA PANTALLA 

Los ordenadores MSX cuentan 
con cuatro modos de pantalla. 
Estos cuatro diferentes modos 
permiten visualizar con nuestro orde- 
nador todo tipo de gráficos o texto. 

Aunque en la realidad no es así, po- 
demos imaginar que el ordenador 
cuenta con cuatro pantallas diferentes. 
Sólo tenemos que indicarle cuál de 
ellas es la que queremos ver a través de 
nuestro televisor o monitor, al igual 
que seleccionamos el canal de televi- 
sión que deseamos ver. 

La pantalla es la que hemos estado 
utilizando hasta ahora. Se conecta au- 
tomáticamente en la mayoría de los 
MSX al encender el aparato. En esta 
pantalla podemos visualizar cualquier 
tipo de texto y es, por lo general, la uti- 
lizada para realizar los programas. Dis- 
ponemos de 24 líneas de 40 caracteres 
cada una, és decir, un total de 960 ca- 
racteres. 

Otro modo de pantalla interesante 
es el modo l. En este modo, también 
de texto, podemos visualizar 24 filas de 
32 caracteres en este caso; pero con la 
ventaja adicional de poder utilizar spri- 
tes. Los sprites son unas figuras que 
pueden desplazarse fácilmente por la 
pantalla, muy útiles a la hora de progra- 
mar videojuegos. En este modo, ade- 
más, podemos hacer que el texto de la 
pantalla aparezca con diferentes colo- 
res. De todo ello hablaremos más ade- 
lante. 

El modo 2 es, sin duda, el más utili- 
zado por los usuarios de MSX. Este es 
el modo gráfico por excelencia. Dispo- 
nemos de una parrilla de 256 x 192 pí- 
xels (puntos independientes) sobre la 
que podemos desarrollar toda clase de 
dibujos. 

Por último, el modo 3 es también 
gráfico y cuenta con una parrilla de 
64x48 píxels. Es muy poco utilizado 
debido a la poca resolución que permi- 
te, ya que sus puntos son muy "gor- 
dos". 

Estos dos últimos modos gráficos 
cuentan también con la posibilidad de 
utilizar sprites si así lo deseamos. 



SCREEN 

El comando SCREEN es uno de los 
más versátiles del BASIC. Una de sus 
aplicaciones es la de seleccionar el 
modo de pantalla que queremos visua- 
lizar. Para ello sólo debemos escribir la 
palabra SCREEN seguida del modo 
deseado. 

Probad a teclear directamente en 
vuestro ordenador la siguiente línea: 

SCREEN 1 
A partir de este momento estamos 
visualizando la pantalla 1. Si intentáis 
hacer lo mismo con las pantallas de 
gráficos os llevaréis una pequeña sor- 
presa. Si intentáis hacer: 

SCREEN 2 
se borrará la pantalla; pero nada más 
parecerá haber sucedido. En realidad 
el ordenador pasa a modo de gráficos; 
pero como siempre, nos responderá 
con "Ok". Para ello, como "Ok" es un 
texto, deberá conectar la pantalla de 
texto, cosa que hace automáticamente. 
Resultado... nada ocurre después de 
todo. 

Teclead el siguiente programa para 
comprobar que realmente entramos en 
modo de gráficos. 
10 SCREEN 3 
20 PSET (100,100) 
30 PSET (104,104) 
40 PSET (108,100) 
50 PSET (104,96) 
60 GOTO 60 

Este programa realiza lo siguiente: 
en primer lugar visualizamos la panta- 
lla 3 (la de los puntos gordos). Una vez 
en este modo, las líneas 20 a 50 dibujan 
en ella 4 puntos. Finalmente, la línea 60 
hace que el programa quede infinita- 
mente en la línea 60. Con esto conse- 
guimos que el programa no acabe nun- 
ca y, por tanto, evitamos que aparezca 
el mensaje "Ok". 

Experimentad eliminando la línea 
60 (debéis teclear 60 y pulsar ENTER). 
Resultado: el programa es tan rápido 
que no llegaréis a ver nada. 

Como hemos visto, podemos dibu- 
jar puntos en la pantalla; pero además 
es fácil modificar el color de los mis- 
mos. Para ello, modificad la línea 20 
para que quede de la forma: 
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DIBUJO 2 

20 PSET (100, 100), 1 

¡Ah!, y volved a introducir la línea 
60. Al hacer RUN comprobaréis que 
uno de los puntos es de color negro. 

La sintaxis completa de la instruc- 
ción PSET es: 
PSET (X,Y,),C 

donde X e Y son las coordenadas hori- 
zontal y vertical del punto respecto a la 
esquina superior izquierda de la panta- 
lla (ver dibujo). C 1 
por el color que 
punto. 




10 



Existen además otras muchas ins- 
trucciones de dibujo; pero utilizare- 
mos PSET un poco más antes de aden- 
trarnos de lleno en las otras instruccio- 
nes gráficas. 

LINEAS CON PSET 

Gracias a los bucles, de los que ya 
hemos hablado en números anteriores, 
es fácil realizar complicados dibujos 
utilizando únicamente la instrucción 
PSET. Por ejemplo, para realizar una 
línea negra horizontal en el centro de la 
pantalla debemos, manteniendo cons- 
tante la distancia Y (Y =96) recorrer 



todas las X (desde hasta 255). Para 
entender mejor esto, consultad el dibu- 
jo 2 y entrad el programa listado a con- 
tinuación. 
10 SCREEN2 
20 FORX=0TO255 
30 PSET(X,96),1 
40 NEXTX 
50 GOTO 50 

En primer lugar seleccionamos 
-modo gráfico 2 (256x 192 píxels). Rea- 
lizamos un bucle que dará 256 vueltas, 
dibujando en cada una de ellas un pun- 
to, cuya distancia X irá aumentando v 
cuya Y permanecerá constante. Final- 
mente, la línea 50 debe comenzar a re- 
sultaros familiar. 



EJERCICIOS 



1- Realizad cualquier dibujo; pero 
utilizando PSET. No tengáis prisa por 
utilizar las demás instrucciones gráfi- 
cas, que trataremos en el próximo nú- 
mero en profundidad. 

2 - Llenad toda la pantalla de pun- 
tos de color verde. 

3 - Y siguiendo con el símil de los 
ejercicios del mes pasado, dibujar una 
X que ocupe el máximo tamaño en la 
pantalla. 

SOLUCIONES A LOS 
EJERCICIOS DEL MES 
PASADO 

El primero de los problemas pro- 
puestos en nuestro anterior número 
consistía en escribir, por medio de es- 
trellas, vuestro nombre en la pantalla. 

Realizaremos uno como ejemplo de 
resolución de este ejercicio (ver listado 

adjunto). 

Respecto al segundo ejercicio, llenar 
toda la pantalla con la letra "A". Nada 
más fácil. Aparte de existir un gran nú- 
mero de soluciones, todas ellas resul- 
tan ser de lo más sencillas. 

Por ejemplo, valgan como muestra 
tres diferentes soluciones: 
10 FORX=lTO24 
20 PRINT"AA...todalalínea...AA"; 

30 NEXTX 

En este caso, imprimimos 24 veces 
una línea de repleta de A, con lo que 
acabaremos llenando las 24 líneas que 
componen la pantalla. 

Otra posible solución sería: 
10 FOR X=lTO 24*40 
20 PRINT "A"; 
30 NEXTX 

En este caso imprimimos tantas "A" 
una detrás de otra (fijaos en el punto y 
coma que acaba la línea 20) como espa- 
cios hay en la pantalla. 



Finalmente, otra solución pudiera 
ser* 

10 FORY=0TO23 
20 FORX=0TO39 
30 LOCATE X,Y 
40 PRINT "A"; 
50 NEXT X 
60 NEXT Y 



En este caso repetimos 24 veces (una 
por cada línea de la pantalla) el bucle 
de las líneas 20 a 50. Este bucle escribe 
toda una línea de "A", desde la posi- 
ción a la 39. 

Los más despiertos (o aquellos que 
se molesten en escribir los programas) 
se darán cuenta de que estos progra- 
mas no funcionan correctamente, y tie- 
nen razón. Estos programas, en todos 
los casos, dejan un par de líneas en 
blanco al fondo de la pantalla. Esto se 
debe a que el ordenador imprime 
"Ok" al acabar el programa, y la solu- 
ción se comenta en este mismo núme- 
ro, al hablar de los gráficos. 

Sin embargo, es imposible llenar 
completamente la pantalla, ya que 
siempre que escribamos sobre el últi- 
mo carácter de la pantalla se producirá 
un SCROLL que nos creará una línea 
en blanco. 

Esperamos, sin embargo, que estos 
ejemplos os ayuden a comprender me- 
jor la estructura de los bucles 
FOR... NEXT de los que tratan estos 
ejercicios. 

El último ejercicio, con toda seguri- 
dad, habrá puesto en un apuro a más 
de uno, y no porque el programa sea 
complicado, sino porque al empezar a 
manejar los bucles son corrientes este 
tipo de dificultades. 

Al igual que en el caso, anterior hay 



A continuación incluimos un par de 
listados más. Tecleadlos y observad sus 
resultados, intentando explicaros por 
qué hacen lo que hacen. 
10 SCREEN 2 
20 FOR Y=0TO 191 
30 PSET(100,Y),12 
40 NEXT Y 
50 GOTO 50 

10 SCREEN 2 
20 FOR 1=0 TO 191 
30 X=U255/191 
40 Y=I 

50 PSET (X,Y),8 
60 NEXT I 
70 GOTO 70 



Nos contentaremos en este caso con 

dar una válida. 

10 WIDTH 40 

20 FOR 1=0 TO 39 

30 LOCATE 1,1*24/40- 

40 PRINT","; 

50 LOCATE 1,24-1,-24/40 

60 PRINT' 1 ,"; 

70 NEXT I 

Este programa presenta una compli- 
cación adicional, y es que deben modi- 
ficarse al mismo tiempo la coordenada 
horizontal y la vertical; pero de dife- 
rente modo. 

Para solucionar este problema gene- 
ramos un bucle con el máximo número 
de iteraciones que necesitemos. En el 
ejemplo que estamos tratando, como 
en horizontal hemos de recorrer 40 ca- 
racteres y en vertical 24, optamos por 
un bucle de 40 (el mayor). Se trata a 
continuación de poner una variable en 
función de la otra. 

En nuestro caso, basta con multipli- 
car por un factor de escala conveniente 
(40/24). 





LIST 


AD0 




1 


190 


FRINT ■$" 


10 FOR Y=4 TC 13 


200 


LOCATE 1M.10 


20 


LOCATE 5, Y 


210 




30 


PRINT 


220 


L0CA T E 23*1,10 


40 


LOCATE 11. Y 


230 


nm 


50 


PRINT T 


240 


LOCÍ-TE 2M0-I 


60 


LQCATE 14, Y 


250 


PRIN T "t" 


70 


PRINT "t" 


250 


LOCATE 29-1,7-1 


80 


LOCATE 17, Y 


270 


PRINT 


90 


PRINT T 


280 


LOCATE 29*1,7-1 


100 


LOCATE 22,Y 


2<>0 


PRINT "t" 


110 


PRINT 'I» 


300 


NEXT 1 


120 


NEXT Y 


310 LOCATE 27.4 


150 


FOR 1=0 TO 2 


320 PRINT 


160 


LOCATE 6+I,°-I 


330 


LOCATE 3M 


170 


PRINT "t" 


340 PRINT "t" 


• 180 


LOCATE 8+1,7+1 


350 ENÜ 
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MSX Investigacióni 



¡Por Ronald Van Ginkeli 



SISTEMAS 
INTERACTIVOS 



Los sistemas interactivos forman parte de 
la más alta tecnología. Mediante los siste- 
mas interactivos se ha logrado unir imáge- 
nes de vídeo normales y las imágenes de 
ordenador. En este artículo analizamos 



sus usos 



Se define a un sistema interativo 
como aquel en el que el usuario 
puede acceder a secuencias de in- 
formación visual mediante un ordena- 
dor. Este acceso se realiza mediante un 
programa en BASIC o mediante los 
PROGRAMAS DE AUTOR (progra- 
mas de muy alto nivel especializados en 
el tratamiento de sistemas interacti- 
vos). En dicho programa, se suele in- 
troducir un cierto número de menús y 
submenús para facilitar la tarea de ele- 
gir una determinada información. Esta 
información puede variar desde foto- 
grafías fijas de productos de una deter- 
minada fábrica hasta secuencias de pai- 
sajes y hoteles con fines turísticos. 

La utilidad del uso de Vídeos Inte- 
ractivos es enorme, y se basa en la com- 
•paginación de una imagen de vídeo 



(cintas parecías a las del vídeo domésti- 
co o las de un disco láser) con la imagen 
de un ordenador (texto, gráficos, 
etc.). Además de imagen, también se 
puede usar el sonido que haya en la cin- 
ta o disco, el cual puede ser emitido por 
2 canales independientes (el vídeo do- 
méstico tiene un solo canal de sonido). 

La imagen de vídeo puede ser sacada 
de una cinta de vídeo (U-matic LB/HB) 
o de un disco láser, (parecido a un 
compact disc, pero con el tamaño de 
un LP). Las ventajas y desventajas de 
utilizar el primer sistema son: 

- La producción de la cinta puede ser 
realizada por cualquier productora. 

- El propio cliente puede producirla. 

- Es más barata. 

- Se puede duplicar en España. 



- El sistema U-matic es más caro en el 
valor del interface. 

- El acceso es lento, ya que es secuen- 
cial. 

Y las ventajas y desventajas de usar 
un videodisco son: 

- La producción del disco no se puede 
realizar en España. 

- Una vez realizado, no se puede du- 
' plicar. 

- Es más caro. 

- Su duplicación se ha de realizar en el 
extranjero (en Francia p.e.). 

- El precio del interface es más bara- 
to. 

- El acceso es instantáneo (menos de 
1 seg). 

- La calidad de imagen es bastante su- 
perior, sobre todo en las imágenes 



La combinación entre vídeo, telemática e informática, originan este espectacular avance de Ejemplo de representación visual de información en 
Sony en el campo de los ststemas mteracttvos. r seña¡ ^deo, informativa. 





troducir el número de dicha imagen, o 
el principio y final de la secuencia para 
que el ordenador las pueda interpretar. 

Veamos ahora unas cuantas instruccio- 
nes para un Videodisco: 

- Cali LDPINIT: Inicia el videodisco: 

- Cali ASW(n): Conmuta el canal de 
sonido: n puede valer (ningún ca- 
nal), 1 (canal 1), 2 (canal 2) o 3 (am- 
bos canales). 

- Cali VSW(n): Conmuta el canal de 
vídeo: n puede valer (sólo la ima- 
gen del ordenador), 1 (ordenador y 
videodisco) o 2 (sólo videodisco). 

- Cali LDPSRCH(n): Busca y expone 
la imagen número n. 

- Cali LDPSTART(nl,n2): Localiza y 
expone las imágenes comprendidas 
entre ni y n2. 

- Cali LDPAUSE: Realiza una pausa 
hasta nueva orden. 

- Cali LDPSTOP: Interrumpe la se- 
cuencia que esté emitiendo. 
Basándonos en estas instrucciones, 

vamos a realizar el simulacro de un 
programa con un vídeo interactivo: 

En el disco se encuentran 5 imágenes 
de cassettes editadas por Manhattan 
Transfer, cuyos números son: 
14521 -U-Boot 
14522 -Vampiro 



EQUIPOS QUE FORMAN 
UN SISTEMA 
INTERACTIVO: 

Los principales elementos que com- 
ponen un sistema interactivo son los si- 
guientes: 

- Monitor de alta resolución. 

- Magnetoscopio U-matic o Videodis- 
co para discos láser. 

- Interface para U-matic. 

- Ordenador para controlar al siste- 
ma. 

- Lenguaje de programación. 

- Controlador (una bola gráfica o te- 
clado). 

- Base de datos (una unidad de discos 
o un cassette). 

Para daros una idea de cómo se pue- 
de manejar un sistema interactivo (lo 
cual puede que parezca un poco com- 
plicado a primera vista), vamos a expli- 
car unas instrucciones de ejemplo y su 
uso. 

Para empezar habría que decir que, 
tanto en el Videodisco como en el Mag- 
netoscopio, las imágenes están nume- 
radas (tiene una capacidad de unas 
55.000 imágenes), de manera que 
cuando se quiere acceder a una deter- 
minada imagen o secuencia, basta in- 

Una de las confíguraciones del sistema interactivo de Sony. Combina un reproductor de vídeo disco (LDP 1.500 P) con el ordenador personal HB G900p. 



14523 - Krypton 

14524 - Mata marcianos 

14525 -TNT 

También se encuentran secuencias 
pertenecientes a: 

21010-23000: Imágenes de Manhat- 
tan Transfer (oficinas), 
con dos músicas de fon- 
do, la 5. a Sinfonía de 
Beethoven y la banda 
sonora de la película 
"El golpe". 
24 100-26000: Impresión de la revista: 
en ambos canales hay 
sonidos de máquinas. 
Con estos datos ficticios, vamos a 
realizar un breve programa: 
10 SCREEN 0: COLOR 15,4,4 
20 -LDPINIT: -VSW(1):-ASW(1) 
30 CLS: LOCATE 10,5:PRINT 

"MENU PRINCIPAL" 
40 LOCATE 10,5:PRINT"1- 

Manhattan Transfer" 
50 LOCATE 10,7:PRINT"2- 

Productos" 
60 LOCATE 5, 10:PRINT "PULSE 

LA OPCION ELEGIDA" 
70 A$=INPUT$(l):ON VAL(A$) 

GOTO 90,240 
80 GOTO 30 

90 CLS:LOCATE 12,1: PRINT 
"SUBMENU PRINCIPAL" 
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£síos son /os componentes de un sistema interactivo con vídeo. 
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100 LOCATE 10,5:PRINT " 1- 

Oficinas" 
110 LOCATE 10,7:PRINT"2- 

Produccion" 
120 LOCATE 10,9:PRINT"3-Menú 

principal" 
130 LOCATE 5,12:PRINT "PULSE 

LA OPCION ELEGIDA" 
140 A$=INPUT$(l):ONVAL(A$) 

GOTO 160,200,30 
150 GOTO 90 

160 LDPSTAR(21010,23000):COLO 

R,0,0 REM Hav que utilizar el 

color de fondo para que se vea 

la imagen 
170 CLS:-ASW(INT(RND(1)* 

2)+ 1) REM Selecciona una 

música aleatoriamente 
180 FOR 1= 1 TO 3 120: NEXT REM 

Espera hasta que se acabe la 

secuencia 
190 COLOR 15,4,4:GOTO 90 
200 -LDPSTART(24100, 

26000):COLOR0,0 



210 CLS:-ASW(1) 
220 FOR 1= 1 TO 2 100: NEXT 
230 COLOR 15,4,4: GOTO 90 
240 CLS: LOCATE 12,1: PRINT 

"SUBMENU PRINCIPAL" 
250 LOCATE 10,5:PRINT "1-U- 

boat" 

260 LOCATE 10,7:PRINT "2- 

Vampiro" 
270 LOCATE 10,9:PRINT "3- 

Krypton" 
280 LOCATE 10,11:PRINT "4-Mata 

marcianos" 
290 LOCATE 10,13:PRINT "5- 

TNT" 

300 LOCATE 10,15:PRINT "6- 

MENU PRINCIPAL" 
310 LOCATE 5,18:PRINT "PULSE 

LA OPCION ELEGIDA" 
320 A$=INPUT$(l):ONVAL(A$) 

GOTO 340, 350, 360, 370, 380, 

30 

330 GOTO 240 

340 N=14521:GOTO390 



350 N=14522:GOTO390 
360 N=14523:GOTO390 
370 N=14524:GOTO390 
380 N= 14525 

390 CLS:-LDPSRCH(N):COLOR 
,0,0 

400 FOR 1= 1 TO 1000:NEXT REM 
ESPERA UN TIEMPO PARA 
VER LA FOTOGRAFIA 
410 COLOR 15,4,4:GOTO240 

Espero que este listado (repito total- 
mente ficticio) os haya clarificado un 
poco más los conceptos. De todos mo- 
dos, en futuros artículos volveremos a 
hablar de este tema. 



DATOS TECNICOS: 



SISTEMA VIDEODISCO 

SELECTOR CAPITULOS 
PVM-2010 LDP-1500P 
IF-100 (sin teclado) 
Precio total: 639.200 
ORDENADOR: HB-G900p 
PVM-2010 LDP-1500P 
HB-G900P BOLA GRAFICA 
CABLES: HBK-2125 SMK-0031 
Precio total: 810.700 

SISTEMA U-MATIC 

(NIU-100) 

PROGRAMADOR superposición 
HX-14CP1 VO-5630 NIU-100EP 
HB-G900P HBI-G900P PRN-M09 
HBW-G900 P. AUTOR-CAI-prog 
PRECIO TOTAL: 1.389.700 
USUARIO superposición 
HX-14CP1 VP-5040(mod) NIU-100S 
HB-G900 P.AUTOR-CAI-uauario 
Precio total: 875.000 

SISTEMA U-MATIC 
(NIU-100) 

PROGRAMADOR sin superposición 
KV-1440G VO-5630 NIU-100EP 
HB-F700 PRN-M09 CAI-prog. 
(Sin digitalÍ2ación) 
Precio total: 877.700 
USUARIO sin superposición 
KV-1440 VP-5048(mod) NIU-100S 
HB-F&)) P. AUTOR-CAI-usuario 
Precio total: 636.000 

SISTEMA U-MATIC (HBÜT 

PROGRAMADOR superposición 
KX-14CP1 VO-5630 HBU 
HB-G900P HBI-G900 PRN-M09 
HBW-G900 P.AUTOR-SAS 
Precio total: 1.263.400 enero 87 
USUARIO superposición 
KX-14CP1 VO-5630 HBU 
HB-G900 P.AUTOR-SAS 
Precio total: 927.400 enero 87 
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1. "-Podrán participar todos nuestros lectores 
cualquiera sea su edad. 

2. "-Los programas se clasificarán en tres cate- 
gorías : 

Educativos 
Gestión 

Entretenimiento 

3. "-Los programas deberán ser remitidos gra- 
bados en cassette debidamente protegidas, dentro 
de su estuche de plástico. 

4. "'-No entrarán en concurso aquellos progra- 
mas que ya hayan sido publicados por otros me- 
dios o plagiados. 

5. °-Junto a los programas se incluirán las ins- 
trucciones correspondientes, detalle de las varia- 
bles, ampliaciones posibles y todos aquellos co- 
mentarios que el autor considere de interés. 

6. "-Todos los programas han de estar estructu- 
rados de modo claro, separando con REM los 
distintos sectores del mismo. 



PREMIOS 

7. --MSX CLUB OTORGARA 
GUIENTES PREMIOS: 

JOYSTICK DE ORO MSX CLUB Y UNA 
UNIDAD DE DISCO AL MEJOR PROGRA- 
MA DEL AÑO. 

Además mensualmente se premiarán los pro- 
gramas publicados del siguiente modo: 

10.000 pts. los programas Educativos 

10.000 pts. los programas de Gestión 
6.000 pts. los programas de Entretenimiento 

FALLO Y JURADO 

8. "-El Departamento de Programación de MSX 
CLUB DE PROGRAMAS hará la primera selec- 
ción de la que saldrán los programas publicados 
en cada número de la revista. 

9. °-Los programas no se devolverán salvo que 
así lo requiera el autor. 

10.»-La elección del PROGRAMA DEL AÑO se 
hará por votación de nuestros lectores a través de 
un boletín que se publicará en el mes de octubre 
de 1987. 

1 1 El plazo de entrega de los programas finali- 
zará el 31 de octubre de 1987. 
12."-E1 fallo se hará conocer en el número de di- 
ciembre de 1987, entregándose los premios en el 
mismo mes. 




| Remitir a: r.^..- I MI PROGRAMA 

Roca i Batlle, 10-12, bajos 08023 Barcelona 



Programa 



iPor David del Gallego 



SIMULADOR 
DE VUELO 



Con este programa podréis des- 
pegar de vuestras butacas ya 
que se trata de un simulador de 
vuelo con el que podréis sentir 
la experiencia de volar con un 
F-18. 



3 ' PRESENTACION 

4 ' 

5 ' 

10 SOUND 7,&61illl000:COL!3F 4.4.1:SCFE 
EN2,2:COLQR4,4,l:LlNE(l5,45M:40,l!0) 
,3,BF:DRAW"C6BH30,ó0R45D15L:3D:I=15D1: 
L15D30L15U75":DRAM , C6BH75,90F;30D15L:.0U 
15" 

20 WA«'C6Mi33,4IRi30é#R150i3U5üí3Rl 

5ü30L15":LINE(120,90)-(135,á0;,ú:LlNEf 

180,60)-<225, 135),6,B:LINEU95,75)-'.2: 

0,90),6,B:LINE(195,105)-(210,120),6,B: 

LINE(13,45)-(240,150),1,B 

30 PA!NT(32,62),6:PA!NT(77,92),6!PAINT 

(137,62), 6:PAINT( 182, 62), 6:C0L0R UAlf 

='R9D3L6D3R3D3L3D3R6D3L9U15":A2í="R3Dl 

2R6D3L9U15":A3i= a R3D15L9U6R3D3R3U12 ,, :A 

4$="R9D3L6D9R6D3L9U13":A3$« ,, R9D15L3U6L 

3D6L3U15-:Aó$= n R3D3L3U3" 

40 A7$= - R6F3D963L6U15":A8*="R3D , =L3U9": 

A9$="R3Di2R3U12R3D15L9U15":DRAW"BH20.: 

5XA1$; ":DRAW"BM29, 15XA2$; " : DRAWBM47, 1 

5R3D2PD2RU2RU2R3D15L3U4D2LD2LÜ2LU2D4L3 

U15':DRAW-BM56 f 15XA1S; " 

50 DRAW-BM71, 15XA3$; ":LINE(74, 15) -'83. 

30),1,B:LINE(77,18)-(80,27),1,B:DRAWB 

H83, 15R9D9L3BM83, 15D15R3U6BM89, 30P3" : L 

1NE(89,24}-(92,30),1:LINE(B6,24)-(B9,3 

•),l:DRA*"8MB6,t3P3D3L3U3" 

60 DRAWBMI01 , 15XA4S ; ' : DRAWBH1 10, 15XA 

5$; ":DRA«"Bf!113, 1BXA6$; " : DRAWBM1 19, 15 

R9D3BM19,15D3R6BM119,27D3R9U3L6":LINE 

(128,18)-(122,27),1:LINE(125,18)-(119, 

27) ,1 

70 DRAN-BM128, 13XA3«; BM131 , 18XA6I; 1 : DR 
AH"Bni46, 15XA7$;BM149, 18XA8$; " : DRAW'BM 
155, 15XA1$; " ;DRAW"BH164, 15XA2I; " : DRAW" 
BM182, 15R3D2RD2RU2RU2R3D15L3U4D2LD2LU2 
LÜ2D4L3U13" 

80 DRAWBM191 . 15XA9$; " : DRAW"BM200. 15D1 
5R3U6BN200, 15R3BH206, 15D6U6R3D15L3" :LI 
NE(203,15)-«206,21),l¡LINE(203,24)-(20 
6,30),1:DRAN , BH209,15XA7$;BH212,1BXA8$ 

90 LINE(218,15)-(227,30),1,B:LINE(221, 





18>-(224,27) . 1,B:B1S=-R?09L6D6L3U15":B 
2$="R9D3L3B9R3D3L9U3R3U9L3U3- : B3$="R9D 
:i.6D"F.3 , J3L:U3R5D9L9Ul5":DRAW'BI12 J 165X 
B1$;BM32. lo3XA6$; H 

100 LINEt38,165)-!47,lB0),l,B:LINE(41, 

168)-(44.177),1,B:DRAWBI147,165F9D9L3B 

H47,165D15R3U6BM53,180R3 n :LINE(53,174) 

-(56,180),1:LINE«50,174)-(53,180),1:DR 

AW"BH50,168R3D3L3U3" 

110 DRAWBM65, 165XA7$;BH68, 168XA8I; " : D 

RAN'BM74,165XA5$;BH77,16BXA6$;":DRAW'B 

M83, 165R3BH89, 16SR3BMB6, 180R3» : LINE (83 

,165)-(86,180),1:LINE(86,165)-(88,174) 

,1:LINE(88,172)-(89,165),1;LINE(89,1B0 

)-(92,165),l 

120 DRAWBM92, 165XB2S; ":DRAN'BH10l, 165 
XA7*;BM104, 168XA8$; " : DRAWBMl 19, 165XA7 
*; BH122, 168XA8$; " :DRAH"BN128, 165XAl$; ' 
:DRAM"BH137, 165XA2I; " : DRAWBH155, 165XB 

3$r!DRAW"BH164,163XA5l)BHl67,l6BXA6tj 
■ 

130 DRAWBH173, 165XA2<; " : DRAH'BH182, 16 

5XA2$; B :DRAH"BM91,165XAl$;":DRAirBH20 

0, 165XB3I; ":LINE(209, 165) - (218, 180) ,1, 

BiLINE(212,168)-(215,177),l,B:PAINT(5, 

5),l:PAINT(206,169),l:PAINT(205,175),l 




:PAINT(214,Í75),1 

140 FOR 1=1 TO 28: READ X . Y: F AINT ( X , Y) , 
lsNEXT I : DATA 26,19,78,19,88,19,108,22 
,115,19,122,20,127,24,133,19,151,21,16 
2,19,214,21,223,21 

150 DATA 34,169,43,171,52,169,70,171,7 
9, 169, 100, 172, 106, 172, 124. 172, 136, 170, 
162, 169, 160, 175, 169, 169, 198, 170,206, ló 
9,205,175,214,175 

151 PLAY-S14M900A6FAGFFGAF6A n , "514M900 
EEEEEEDDDDDD' 

160 FORI=ITO3100: NEXTI : S0UND7, «tBl 1 1111 

170 » 

171 ' 

172 ' OPCION DE MANDOS 

180 ' 

181 ' 
1B2 ' 

190 OPEN'GRPs'AStl 

200 COLOR 4,4,4:CLS:C0L0R 4,4,4:L1NE(5 
0,50)-(200,140),l,BF:LINE(45,45)-(195, 
135),15,BF:A$=M.-J0YSTICK.-:B$= 1, 2.-CU 
RSORES. ' : DRA1TBH75, 75' : COLOR 6: PRINTtl 
,A$¡DRAW"BN75,76':PRINTIl,A$:DRAtTBM76 
, 75" : PR INTt l , Af : DRAW"BM76, 76" : PRINTtl , 
- 
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Ai 

210 DRAWBM75 , 95" : PRINTil, B$: DRAW"BM75 

, 96" : PRINT#1 , B$ : DRAW "BM76, 95" : PRINT# 1 , 

B$:DRAW"BM76,96":PPINTtl,B$ . 

220 C*=INKEY$: IFC$=" 1 "THENQ= 1 : 6OTO1000 

230 IFC$="2"THENQ=0:GOTO 1000 

240 IFC$O"rANDCi:>"2"THEN220 

980 BOTO 980 

981 ' 

982 ' 

983 ' DESPEGUE 

984 ' 

985 ' 

1000 CLQSE»1:0FEN-6RP: "AStl: DIM MiUi 
COLOR ,4,4:CLS 

1010 SPRITE$(4)=STRING*(8,CHR$(245) 
1020 SPRITE$(5)=STF;ING$(8,CHR$(60)) 
1030 SPRITES (6) =STP1NG$<8, CHRK 126) ) 
1040 SPRITE*(7)=STRIN6$(8, CHR*í255) ) 

1050 C=15:CI=6:Z=350:L=95:K=0:O1=70:O2 
=185:M=0:G=0:V=1:T=123:N=87:FORI=1TO12 
:N=N+3:P(I)=N:NEXTI: J=Q 

1051 Al$=" AGOTADA LA PISTA DE DESPEGUE 
' : A2*="DESPEGUE: VELOCIDAD INADECUADA" : 
A3$=" MANIOBRA' PERFECTA DE DESPEGUE" 

1060 LINE'0,96)-(255,1 [ U),1,BF:LINE{0, 
i 3 :)-(7g,96),12:LINE!0,96)-i70,96) f 12: 
LINE(185,96)-(255,191),12:LINEU85,96) 
-Í255,96),12:FAINT(10,100),12:PA1NT(24 

0, 100) , 12: UNE (0,0) -(255, l4) . 1, BF:PSET 
(¡0, 0! , 1 : COLOR 6: PRINTil , "VELOCIDAD.: ■ 

1061 PSET(145,0),1:COLOR 6:PRINT*1,'AL 
TUFA: " 

1062 ONKEYGQSUB, , , , 1500:KEY(5!ON 

1063 TIflE=0 

1070 P'JTSPRITE5.(T.P(i));C,4:PUTSPF.I7E 
6,iT,P!2)),C.4:FUTSFRITE7,¡T,P(3M,Cl, 
5:PUTSPRITEB,!T,P(4)),CI,5:F'JTSPRITE9, 
;T,P(5)»,C,5:PUTSPF;ITE10,(T,P(6)),C,5: 
PUTSFF:ITEll,!T,P(7)),Cl,6:PUTSPRITEi2, 
(T,P(8)),C1,6 

1080 PUTSFR I TE 1 3 , ! T , P ( 9 ) ! , C , 6: PUTSPP I T 
E14,(T,PÜ0)),C,6:PUTSPF.ITE15,(T,P(11) 
),C1,7:PUTSPRITE16,!T,P(12!),C1,7:SWAP 
C,C1 

1090 Rn=STICK(J):IFRT:'.= lTHEN2=Z-10:V= 
V+3 

1100 IFRn=5THENZ=Z+10:V=V-3 

1101 AA=INT(12500/V):IFAA;255 THEN AA= 
255 

1 102 SOUND0, AA: SOUND 1,1: S0UND2 , AA: 50UN 
D3,2:SOUND4,0:SOUND5,5:SOUND6.15:SOUND 
7,56:S0UND8, 15:SQUND9, 15:SOUND10, 15 
1110 FORA=0TOZ:NEXTA:LINE(0,L)-(255,L) 
,4:L=L+G:F0RI=1TQ12:P(I)=P(I)+6:NEXTI: 
K=K+G:IFK=2THENGOSUB1300 

1120 IFP ( 1 1 > = > 1 9 1 THENSPR I TES ( 7 ) =CHP$ ( 
) 

1130 IFP(7)=>191THENSPPITEI(6)=CHR$(0) 
1140 IFP(3)=>191THENSPRITE$(5)=CHR$(Í) 



1150 IFP(1)M95THENSPRITE$;4)=CHR$(0): 
ZZ$=A3$:60T0 1650 

1151 LINE(85.0)-(111,7U,BF:PSET(80,0 
1,1: COLOR 6:PRINT#1,V: IFG=1THENH=H+5:L 
INE(201,0)-(241,7),1,BF:PSET(201,0),1: 
COLOR 6:PRINTI1,H 

1152 TE=TIHE:IFTE/50=>60ANDG=0THENZZ$= 
A1$:GOTO1600 

1160 GOTO 1070 

1300 O1=O1+1:O2=O2-1:LINE(Q1-2,L)-(0,1 

92),l2:LINE(02t2,L)-(256,192),12:LINE( 

Ol-l.L)-(0,192Í,12:LINE(O2*l,L)-(256,l 

?2),l2:LINE(Ol,L)-(0,192),t2:LINE(O2,L 

) - (256, 192) , 12: K=0: RETURN 

1500 IF V=>225 AND V=<235 THEN 6=1 

1510 IF V<225 OR V>235 THEN ZZ$=A2$:GQ 

TO 1600 

1520 RETURN 

1600 LINE(0,7)-<255,14),1,BF:PSET(0,8) 
,l:COLOR 6:FRINT*1,ZZ*:FORI=1TO1000:NE 
X T I:CLEAP:SCREEN2:0PEN"5RP: n ASil:G0TQ 

=000 

1650 LINE'0,^-'255.14).1,BF:PSET(0,8> 
,1:C0LCR o:PRINTil ! ZZ$:FOf!=;TO1500:NE 
XTI: SQUND7. &B1 1 11 1 111 

2000 ' 

2001 ' 

2002 ' COMBATE 
WZ ' 

:m ' 

2010 3GREEN 2,2 

2015 L2=30:GDSUB 2500 

2020 Al$*CHRf (0) +CHRS ( 127) *CHR* ( 64) *CH 

R$ (64) *CHR$ [¿4 ! *CHR$ í 64 ) +CHR$ í 64 ) +CHRS 

(64) 

2030 A2$=CHR$'67!+CHR«(64)+CHR$(64)+CK 
R$(64»+CHR$Í64)*CHR$(64)+CHF:!'12 7 )*CHR 
$(0) 

2040 A3$=CHR$ (0) +CHR$ ( 255) +CHRS ( 1 ) *CHF 
$(1)+CHR$(1)+CHF;$(1)+CHR«C29;+CHR$(12 
9i 

2050 A4$=CHR$ ( 225 ) +CHPS (129) +CHRI (12?) 
+CHR$ ( 1 ) +CHR$ ( 1 ) *CHR$ ! 1' ♦CHRI ( 255 ) +CHR 
$(0) 

2060 A5$=CHR$ (0) +CHRJ (0) *CHR$ ( l ) +CHRS I 
l)+CHR$(l)+CHR$(l)+CHR$(l)+CHR$(l) 
2070 A6$=CHR$ ( l ) +CHRS ( l ) +CHR$ ( l ) +CHPI ( 
3) +CHR$ (7) +CHR$ ( 15) +CHRt ClI-J +CHR$(9) 
2080 A7$=CHR$ ( 128) +CHP$ ( 123) +CHF:$ i 192: 
*tm\ ( 192) +CHRÍ (192) +CHR$ ( lf|3 +CHR$(19 
2!tCHR$í1°2) 

2090 A8$=CHP$:i 5 : i *>F$¡192)+CHR$íl92) 
+CHR$ (224 ! +CHRÍ m> *CHR$ ( 248) +CHRS (21 
6)+CHR$(72) 

2100 A9$=CHR$(0)+CHR$(0)+CHR$(0)*CHR$( 
24) +CHR$ ( 24 ) +CHR$ (24 ) +CHR$ ( 24 ) +CHR$ ( 24 
) 

2101 B1$=CHR$(0)+CHR$(0)+CHR$(0)+CHR$( 
0)*CHR$(0)+CHR$(0)*CHR$(3)*CHR$(0) 

2102 B2$=CHR$ ( 1 ) +CHR$(3) +CHR$ ( 127) +CHF 

===== 



$(3)+CHR$(0)+CHR$(0^CHR$(0)+CHR$(0) 

2103 B3$=CHP$<0)*CHR$(0!*CHRÍí0^ j: r 
0)+CHR$(0)+CHF,i::28)+CHR$(224)*CHR$[l2 
8) 

2104 B4$=CHR$(192)+CHR$(224;-:HP$Í255) 
'CNM:224'*£NRt(0>t£HM(f )*GhM(|>*€HR 
$(0) 

2110 SPRPE$(0!=Ai$*A2S-A:i*A4$ 
212? 5PF:ITE$(1)=A5$*A6$+A7$+A8$ 

2130 SPRITE$(2)=A9$ 

2131 SPRITE$(T-.=B!»+B2$tB3$tB4$ 

2140 PUT SPRITE 2, (25, 183) , 15,2:F-JT 3P 
RITE 4,!175,lB3l,15,2 

2150 X=100:Y=87ul=í00:Yl=175:H=0:7=0: 
V1=4:Y2=0:H1=2:F=198:S1*= , NO TE QUEDAN 

MSILES':S2f*"N0 TE QUEDAN LASE*3*sS3 
•«-MISION Cü!lPLIDA,ENH0RABUENA":S4$»"A 
VION HOSTILíPOSIBLE DERRIBO" : S5i*"AVI0 
N HOSTIL: DERRIBADO" : S6$="AVI0N HOSTIL: 
COLISIONADO" 

2151 ZX$=S4$:G0SUB 4000:R=RNDí-TIHE> 

2152 X2=INT(RND(l)tl84)M 
2160 Sn=STICK(3) 

2170 m KEY 60SUB ,,,,2360:KEY(5)ON 

2180 L7.=STRIG(J) 

2190 IF L7.O0 THEN GCSüB 2350 

2203 IF Sn«l THEN Y«Y-4 

2210 IF SH=2 THEN V=Y-4:X=X+4 

2220 IF ST!'.=3 THEN X=X+4 

2230 IF ST7.=4 THEN Y=Y*4:X=X+4 

2240 IF STr.=5 THEN Y=Y+4 

2250 IF STX=6 THEN Y=Y*4:X=X-4 

2260 IF ST7.=7 THEN X=X-4 

22^0 IF ST7.=8 THEN Y=Y-4:X=X-4 

2271 Y2=Y2+V1:X2=X2-H1 

2272 PUT SPRITE 3, (X2.Y2-. 1,3 

22 7 3 IF ¡í=<0 THEN X=0 

2274 IF X=>184 THEN X=184 

2275 IF y«<7 THEN Y= 7 

2276 IF Y=: 175 THEN Y=175 
2280 PUT SPRITE 0,(X,Y).l,0 
2290 PUT SPRITE 1, (XI, Yl), 1, 1 

2300 IF X2>X1 THEN Xi=Xl*H ELSE IMl- 
H 

2310 IF X2=(0 OR X2=)184 THEN H1=-H1 
2320 IF Y2=>179 THEN ZX$=S6$:60SUB 400 
0:GOTO 6000 

2325 IF Y2+IDY1 THEN Y1=Y1+V ELSE Yl= 
Yl-V 

2330 IF X1=)X2 AND X1+6=<X2+16 AND Yl= 
>Y2*5 AND Y1=<Y2+12 OR X1+14=X2 AND X 
1+14=<:X2M3 AND Yl+16=>Y2+5 AND YM6= 
<Y2+12 THEN 60T0 3000 
2340 GOTO 2160 

2350 IF L2=0 THEN ZX$=S2$: 60SUB 4000: R 
ETURN:ELSE SOUND0,128:SOUND1, 1:S0UND2, 
0: S0UND3, 0: S0UND4, 0: S0UND5, 0: S0UND6, 1 : 
S0UND7, 54 : S0UND8, 16: S0UND9, 0: SOUND 10, 
: SOUND1 1 , 251 : S0UND12, 10: SOUND 13, 15 

2351 LINE(28,188)-(X*8,Y+8),15:LINE(17 
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Programa 




8, 188)-(X+3, Y+8) , 15:LINE(28, 188)- (X+8, 
Y+8),4:LINE(178,188)-(X*8,Y+8),4:L2=L2 
-1:LINE(204,104)-(224,112),15,BF:PSETÍ 
200,105), 1:C0L0R 6:PRINTtl,L2 

2352 IF X=>X2 AND X=<X2+16 AND Y=>Y2 A 
ND Y=:Y2+16 OR X+16=>X2 AND X+16=<X2+1 
6 AND Y*t6=>Y2 AND Y+16=<Y2+16 THEN 60 
TO 3000 

2353 RETURN 

2360 IFP=248 THEN ZX*=S1$:G0SUB 4000:R 
ETURN: ELSE H=4: V=4:P=P+10:PSET(P, 128) , 
1:DFAN"C15XXÍ; ":PAINTíP, 135) , 15:RETURN 
2500 ' 
2510 ' 

2520 COLOR ,,1 

2530 LINE(0,0)-(255,7),t,BF:LINE(200,0 
.-(255,1"!), l,BF 

2570 PSE Tí 204, "6 '>,1: COLOR 6:PPINT#1,"L 
ASEF:S":LINE(204,104)-(224,112),15,BF:P 
SET(200,105),1:COLOR 6:FRINT#1,L2 
2580 PSET(204,120),1:COLOR 6:PRINT*1," 
MISILES" 

2S90 X$="Ü2RD9RDRDPD2'JLUL2D2UL2DU2L2DL 
DU2RURURU9R" 

2600 PSET(208,128),1:DRAWC6XXI;":PSET 
(218,128), 1:DRAWC6XX$;-:PSETÍ228, 128) 
, l:DRAW M C¿XXf ; ,, :PSETí238, 128) , 1:DRAW U C 
6XX$;":PSET(248,128>,1:DRAW"C6XXI}" 
2610 PAINT'208. 135), ¿:PAINT (218,135) ,6 
:PAINT(228,135),6:PAINT(238,135),6:PAI 
NT(248,135),6 
2620 RETURN 

3000 ' 

3001 ' 
3002 
3003 



RUTINA DE EXPLOSION 



3ÑT 

3010 C1I=CHR$( 1) +CHR$(6) +CHRK24) +CHR$ 
(0) +CHR$ (3) +CHRI (36 ) +CHRÍ (73) +CHRI (73) 
+CHR$ ( 168) +CHR$ ( 166) +CHRS ( 152) +CHRS í 64 
)+CHRI(57)*CHR$(64)+CHR$<60) 
3020 C2$=CHR$ ( 1 28) +CHR$ ( 96) +CHRI ( 24) *C 
HR$(0)+CHR$(48)+CHR$(236)+CHR$(228)+CH 
R$ ( 248) +CHR$ (210) +CHR$ ( 17 ) +CHRS ( 97) +CH 
R$ ( 1 46 ) +CHR$(226)+CHR$ ( 12) +CHRS (112) 
3030 SPRITEK5)=C1S+C2$ 
3040 PUTSPRITE5, (X2,Y2) , 15,5:KA=KA+1:S 
OUND0,0:SOUND1,0:SOUND2,0:SOUND3,0:5OU 
ND4 J 0:SOUND5,0:SOUND6,J0¡SOUND7,7:SOUN 
D8,16:SOUND9,16:SOUND10.1Ó:SOUND11,0:S 
OUND12,60:SOUND13,0:ZX**S3í:GOSUB4000s 
IFKA=32THENZX$=S3$:6GT0 5000: ELSE SOTO 
3045 

3045 PSET(204,72),1:COLOR 6:PRINT*1, "A 
VIONES":LINE(204,80)-(244,88),15,BF:PS 
ET(200,81),1:COLOR 6:PRINTI1,KA 
3050 FORI=1TO50:NEXT:SPRITE$(5)=CHR$<0 
):PUTSPRITE5, (255,209), 0,5:PUTSPRITE1, 
(100, 175), 1, 1:H=0:V=0:X1M00:Y1=175:X2 
=0:Y2=0:GOTO 2151 

3991 ' 

3992 ' 

3993 VISUALIZA DATOS 

3994 ' 

3995 ' 

4000 LINE(0,0)-(255,7),1,BF:PSET(3,0), 
1: COLOR 6:PRINTtl,ZX$:RETURN 
5000 LINE(0,0)-(255,7),1,BF:PSET(3,0), 
1;C0L0R 6:PRINTI1,ZX$:FORI=1TO200:NEXT 
:MI=HIH:SCREEN 2:KA=0:GOTO 2000 ' 

5991 ' 

5992 ' 

5993 ' EXPLOSION DEL SIMULADOR 



5994 ' 

5995 ' 

6000 SOUND0,0:SOUND1,0:SOUND2,0:SOUND3 
, 0: S0UND4, 0: S0UND5, 0: S0UND6, 30: S0UND7 , 
7 : S0UND8 . 16: S0UND9, 16: SOUND10, 16: SOUND 
11,255:S0UND12,225:S0UND13,1:F0RI=1T02 
000:NEXTI:SCREEN 2:60T0 9000 

7000 ' 

7001 ' 

7002 ' OPCION DE VOLVER A JU6AR 

7003 ' 

7004 ' 

8000 CL0SEI1:SCREEN 0:KEY 0FF:HIDTH 40 
:C0L0R ,1,1 

8010 L0CATE5,12:PRINT"QUIERES VOLVER A 
JU6AR, (SI/NO)" 

8030 LOCATE0, 15: INPUT H$:IF M$="SI" TH 
EN SCREEN2: CLEAR: GOTO 190 
8040 IF N$="NO" THEN L0CATE15, 22: PRINT 
"ADIOS":FORI=1TO1000:NEXT:SCREEN 0:«ID 

TH 39: KEYON: COLOR 15,4,4:ÉND 

8050 IF MO'SI' OR H$O"N0" THEN 8000 



8991 1 

8992 ' AVIONES DERRIBADOS Y MISIONES C 
UNPLIDAS 

8993 ' 

8994 ' 

9000 S0UND7, m 1 lililí: CL0SEI1 : SCREEN 

9020 PRINT "HAS DERRIBADO ";KA+f1It32;"A 
VIONES' 

9030 PRINT-CON " ; MI ; "HISI ONES CUMPLIDA 
S' 

9040 FORA=1TO2000:NEXTA:SCREEN 2:60T0 
8000 



Test de listados 



TEST DE LISTADOS. Para usar el Test de Listado que publicamos al final de cada programa debe cargarse el programa corres- 
pondiente publicado en nuestro número 7 del mes de noviembre, pág. 28. 
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50 -172 180 - 58 


1010 -198 


1110 -134 
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Programai 



Por Francisco José Salazar 



¿ENTIENDE USTED 
DE FUTBOL? 



El título de este programa lo 
dice todo. Si te crees un entendi- 
do en fútbol atrévete con este 
programa, y si no lo eres, acaba- 
rás el programa siendo un ver- 
dadero experto. 



10 COLOR 1,2,1 

20 ' ENTIENDE USTED DE FUTBOL 
30 ' ttfttt POR F.J.S. tttttt 
40 ' PARA M.S.X. CLUB 
50 0PEN"GRP:-AS1 
60 SCREEN 2 

70 PLA Y ■ 05CDEDCDE ■ , ■ 04CEFF ADE ■ , " 03EEFF 
BAC" 

80 P=0:ER=0 

90 A$="E3H3E1F3E3F1G3F3G1H363H1" 
100 PSET(35,5>,2:C0L0R 15: PRINTtl , "ENT 
IENDE USTED DE FUTBOL" : PSET (36, 5) ,2:PR 
INTil, "ENTIENDE USTED DE FUTBOL" 
110 PSET(60, 176), 2:PRINTtl, "errores:" 
120 LINE(50,170)-(210,190),1,B 
130 PSETÍ28, 174) , 1 : DRAWR 12D2L1 0" 
140 CIF;CLE(25,180),6, 1:CIRCLE(233,180) 
,8,1 

150 PAINT(233,180),1:PAINT(25,180),1:P 
AINT (29, 175), 1 

160 B$="9ue demarcación ocupa el 
jugador del R.Hadrid CANACHO?" 
170 C$= n 1 -DELANTERO" : D$="2-DEFENSA" : E$ 
="3-P0RTER0" 
180 GDSUB 2680 

190 FR$*INKEY$:IF FR$="" THEN 190 
200 IF FR$="2" THEN BEEP:P=P+1:LINE(0, 
20)-(255,160),2,BF ELSE GOSUB 2770:GOT 
190 

210 B$= M Que jugador es considerado 

el lejor del wndo?' 
220 C$=" 1-RUMENI6E" : D$="2-SIT0 P0NS":E 
$="3-HARAD0NA" 
230 GOSUB 2680 

240 FR$=INKEY$:IF FR$="" THEN 240 
250 IF FR$="3" THEN BEEP: P=P+1 : LINE ( 0, 
20)-(255,160),2,BF ELSE GOSUB 2770;GOT 
240 

260 B$='9ue jugador aunque asistió, 

no jugo MEXICO 86?" 
270 C$="l-SETIEN":D$="2-SES0R":E$= n 3-B 
UTRAGUEÑO" 
280 GOSUB 2680 

290 FR$=INKEY$:IF FR$= UH THEN 290 
300 IF FR$="1" THEN BEEP: P=P+ 1 : LINE ( 0, 
20)-(255,160),2,BF ELSE GOSUB 2770:GOT 
290 



m 




310 B$="Que isedidas puede tener un 

caapo de fútbol en LARGC" 
320 C$="l-90 a 120 i":D$= ,, :-" ? a 100 i 
":E$='3-200 a 455 
330 GOSUB 2680 

340 FR$=INKEY$: IF FR*=" " THEN 340 
350 IF FF$=»1" THEN PEER : P=P - 1 : L I riE ' . 
20>-'.255, 160),2,BF ELSE GCSUE 2770; 60T 

340 

360 B$="Quien gano el mundial 7B r " 
370 C$="1-ESPASA":D$="2-BRASIL":E*= B 3- 
ARGENTINA" 
380 GOSUB 2680 

390 FR$=INKEY$:IF FF$="" THEN 390 
400 IF FR$="3" THEN BEEP:P=P*1:LINE(0, 
20)-(255,160),2,BF ELSE GOSUB 2770:GOT 
390 

410 B$="Si tras producirse una taita 
el arbitro levanta la isno, la 
falta es?" 

420 C$='1-DIRECTA":D$="2-FUEFTE":E$=": 

-INDIRECTA" 

430 GOSUB 26B0 

440 FR$=INKEY$: IF FR$ s " " THEN 440 
450 IF FR$="3" THEN BEEP:P=P+1:LINE!0, 
20)-(255,160),2,BF ELSE 60SUB 27 7 0:6OT 
440 



460 3í="Cua! es el ma/or campe de 
ESPAÑA?" 

470 C$="1-LA R0MAREDA":D$= ,, 2-N0U ZAMF r 
:E$="3-BENIT0 VILLAMARIN" 
480 GGSUB 2680 

490 FRf=INKEY$:IF FR$= B " THEN 490 
500 IF FR$="2 M THEN BEEP:P=P+1:LINE(0, 
20>-(255,160),2,BF ELSE GOSUB 2770:6QT 
490 

510 B$="Coío se llama el caapo de 

LA REAL SOCIEDAD?" 
520 Cf="t-LA ALBONDIGA" :D$="2-AL0CHA": 
E$="3-AT0CHA" 
530 GOSUB 2680 

540 FR$=INKEY$: IF FR$="" THEN 540 
550 IF FR$= n 3" THEN BEEP: P=P+1 : LINE ( 0, 
20)-(255,160),2,BF ELSE GOSUB 2770:6OT 
540 

560 B$="De que nacionalidad es el 

jugador llaiado ARNESEN?" 
570 C$="1-DINAHARCA":D$="2-URSS":E$="3 
-BELGICA" 
580 GOSUB 2680 

590 FR$=INKEY$:IF FR$=" THEN 590 
600 IF FR$="1" THEN BEEP:P=P+1:LINE(0, 
20)-(255,160),2,BF ELSE 60SUB 2770:6OT 
590 
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610 B$="Cual es la ultiia sigla de 
FIFA?" 

620 C«=" l-ABATEUR- : D$=" 2-AFICIDHflDO" :E 
$="3-ASCCIACI0N" 
630 60SUB 2680 

640 FR$=INKEY$:IF FR$="" THEN 640 
650 IF m=": u THEN BEEP:P=P+1:LINE(0, 
20)-(255,160),2,BF ELSE GOSUB 2770:6OT 



660 B$="De que color es el segundo 

equipaje del ATHLET1C?" 
670 C$=" 1-VERDE" : D$="2-A2ut" : E$="3-AMA 
RILLO" 

630 GOSUE 2680 

690 FR$=INKEY$:IF FR$=" THEN 690 
700 IF FFi="2" T HEN BEEP:P=P+1:LINE(0, 
20)-(255,160),2,BF ELSE GOSUB 2770-GOT 
690 

710 8<="Quien f«B el sustituto en la 
selección española de ARCONADA?" 
720 C$="1-IRIBAR":D$="2-BUY0":E$="3-ZU 
BI2ARRETA" 
730 605UB 2680 

740 FR$=INHY$:IF Fl$«"" THEN 740 
750 IF HU'V THEN BEEP:P=F+1:LINE!0, 
20}-(255,160),2,BF ELSE GOSUB 2770:6OT 
740 

760 B$="Quien gane el MUNDIAL 30?" 
770 C$='1-FRANCIA":D$= , 2-URU6UAY M :E$=' 
3-URSS" 

780 GOSUB 2680 

790 FR$=INKEY$:IF FR$= U " THEN 790 
800 IF FR$='Z* THEN BEEP:P=P+1:LINE(0, 

2J)-í255 f 160> f 2 f BF ELSE GOSUB 2770:5OT 
790 

810 B$="A que distancia se encuentra 

el PUNTO DE PENALTI?" 
820 C*="l-ll b":D$="2-9 «":E*="3-5 i* 
330 6DSUB 2680 

840 FR$=INKEY$: IF FR$=" THEN 340 
850 IF FR$="l n THEN BEEP:P=F+1:LINE<0, 
20)-(255,160),2,BF ELSE GOSUB 2770:GOT 
840 

860 B$="Que «adidas puede tener un 

caipo en ANCHO?" 
870 C$="l-45 a 95 a H :D$= n 2-60 a 90 fj 
E$="3-45 a 90 i" 
880 GOSUB 2680 

890 FR$=INKEY$:IF FR$="" THEN 890 
900 IF FR$="3 fl THEN BEEP: P=P+1: LINE (0, 
20)-(255,160),2,BF ELSE GOSUB 27?0:GOT 
890 

910 B$="Si un jugador de saque de 
banda lete gol en propia leta sin t 
ocarla nadie, que es?" 
920 C$="1-SAQUE DE PUERTA": D$="2-G0L": 
E$=-3-CDRNER" 




930 GOSUB 2680 

940 FR$=INKEY$: IF FR$="" THEN 940 
950 IF FR$="3" THEN BEEP:P*P+1:L-INE(0, 

20)-í255,160),2,BF ELSE GOSUB 2770¡6OT 
940 

960 B$="Quien gano el MUNDIAL 54?" 
970 C$="1-BRASIL":D$="2-ITAL1A":E$= , 3- 
R.F.A." 

980 GOSUB 2680 

990 FR$=INKEY$: IF FR$="" THEN 990 
1000 IF FR$="3" THEN BEEP:P=P*1:LINE(0 
,20)-!255,¡i0),2,BF ELSE GOSUB 2770:60 
TO 990 

1010 Bi="Que equipo gano la primera 

COPA DE EUROPA DE NACIONES?" 
1020 C$="1-URSS":D$="2-R.F.A.":E$="3-F 

RANCIA" 

1030 GOSUB 26B0 

1040 FR$= INKEY$ : IF FR$="" T HEN 1040 
1050 IF FR$=M" THEN BEEP:P=P+1:LINE(0 
,20)-(255,160),2,BF ELSE GOSUB 2770:60 
TC 1040 

1060 B$="Quien ha ganado dos veces 
la COPA DE EUROPA DE NACIONES?" 
1070 C$="1-URSS":D$="2-R.F.A.':E$="3-I 
NGLATERRA" 
1080 GOSUB 2680 

1090 FR$=INKEY$:IF FR$= BB THEN 1090 
1100 IF FR$="2" THEN BEEP:P=P+1:LINE(0 
,20)-(255,160),2,BF ELSE GOSUB 2770:60 
TO 1090 

1110 8$="Cuantos tacos suelen tener 

las botas de fútbol?" 
1120 C$="1-0CH0":D$="2-DIEZ":E*="3-SEI 



1130 GOSUB 2680 

1140 FR$=INKEY$;IF FR$= H " THEN 1140 
1150 IF FR$="3° THEN BEEP:F=P+1:LINE(0 
,20)-(255,160),2,6F ELSE GOSUB 2770:60 
TO 1140 

1160 B$="De que nacionalidad es el 

jugador BQNIEK?" 
1170 C$="l-BELGICA H :D$="2-POL0NIA":E$= 
"3-DINAMARCA" 
1180 GOSUB 2680 

1190 FR$=INKEY$: IF FR$="" THEN 1190 
1200 IF FR$="-2 n THEN BEEP:P=P+1:LINE(0 

,20>-(255,160),2,BF ELSE GOSUB 2770:50 
TO 1190 

1210 B$="Quien gano el MUNDIAL 33?" 

1220 C$="1-R.F.A.":D$="2-ITALIA":E$="3 

-BRASIL" 

1230 GOSUB 2680 

1240 FR$=INKEY$: IF FR$="° THEN 1240 
1250 IF FR$="2" THEN BEEP: P=P+ 1 : LINE (0 
,20)-(255,160),2,BF ELSE GOSUB 2770:GO 
TO 1240 

1260 B$="Que entrenador español, 
después de estar en el ATHLETIC paso 
al ESPArlOL por problenas con uno 
de sus jugadores?" 

1270 C$="1-ARA60NES":D$="2-CLEMENTE":E 

$="3-IRIBAR" 

1280 GOSUB 2680 

1290 FR$=INKEY$:IF FW="" THEN 1290 
1300 IF FR$="2" THEN BEEP: P*P+1 : LINE (0 
,20)-(255,160),2,BF ELSE GOSUB 2770:50 
TO 1290 

1310 B$="A que selección goleo ESPAÑA 
12-1?" 
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1320 C$='l-I 
--"3-HALTA" 
1330 60SUB 2680 

1340 FRÍ*INKEY$:IF FR$=" B THEN 1340 
1350 IF FR$="3" THEN BEEP: P=P+1 : LINE (0 
,20)-<255,160),2,BF ELSE GOSUB 2770:SO 
TO 1340 

1360 B$="En MEXICO 86 en el encuentro 
ESPAÑA-BELGICA, quien consiguió el go 
1 del eipate?" 

1370 C$="1-JULI0 SALINAS" :Df="2-BUTRA6 

UERQ":E$*"3-SES0R" 

1380 GOSUB 2680 

1390 FR$=INKEY$:IF FR$="" THEN 1390 
1400 IF FR$="3" THEN 8EEP:P=P+1:LINE(0 
,20)-(255,160),2,BF ELSE GOSUB 2770¡GQ 
TO 1390 

1410 B$="Coio se llana el canpo del 
SEVILLA?' 

1420 C$="1-SANCHE2 PIZ JUAN" : D$="2-BENI 
1430 GOSUB 2680 

1440 FR$=INKEY$: IF FR$="" THEN 1440 
1450 IF FR$=V THEN BEEP: P=P+1 : LINE (e 
,20)-(255,160),2,BF ELSE GOSUB 2770:GO 
TO 1440 

1460 B$="Quien gano el MUNDIAL 74?" 

1470 C$= w 1-BRASIL" : D«= M 2-ESPAÑA" : E$= B 3 

-R.F.A." 

1480 GOSUB 2680 

1490 FR$=INKEY$: IF FRi^" THEN 1490 
1500 IF FR*="3" THEN BEEP:P=P+1:LINE(0 
,20)-(255,160),2,BF ELSE GOSUB 2770:GO 
TO 1490 

1510 B*="Que deuarcacion ocupa el 

jugador del ATHLETIC," DE 
LA FUENTE?" 

1520 C$='l-0EFENSA":ü$="2-MEDIO':E$="3 

-DELANTERO" 

1530 GOSUB 2680 

1540 FR$=INKEY$:IF FR$="" THEN 1540 
1550 IF FR$="1" THEN BEEP: P=P+ 1 : LINE Í0 
,20)-(255,I60),2,BF ELSE GOSUB 2770:60 
TO 1540 

1560 Bf="Cuando se creo la FIFA?" 
1570 C$="1-1925":D*="2-1492":E$="3-190 
4" 

1580 GOSUB 2680 

1590 FR$=INKEY$ : IF FR$="" THEN 1590 
1600 IF FRÍ="3" THEN BEEP: P=P+1: LINE (0 
,20)-(255,160),2,BF ELSE GOSUB 2770:60 
TO 1590 

1610 B$="Quien gano el MUNDIAL 66?" 
1620 C$="1-6RAN BRETAÑA" : D$="2-ITALIA" 
:E$= B 3-R.F.A. B ■ 
1630 GOSUB 2680 

1640 FR$=INKEY$:IF FR$=" THEN 1640 
1650 IF FR$=T THEN BEEP: P=P+1 : LINE (• 
,20)-(255,160),2,BF ELSE GOSUB 2770:60 



TO 1640 

1660 B$='Cuantas veces ha ganado 

ESPAÑA la copa del tundo?" 
1670 C$="1-UNA":D$="2-CUATR0':E$="3-CE 
RO" 

1680 GOSUB 2680 

1690 FR$=INKEY$: IF FR$= n " THEN 1690 
1700 IF FR$="3" THEN BEEP:P=P+1 : LINE (0 
,20)-(255,160),2,BF ELSE GOSUB 2770:60 
TO 1690 

1710 B$-"En que país se celebro el 

CAMPEONATO DEL MUNDO del 58?" 
1720 C$="1-R.F.A.":D$="2-SUECIA":E$="3 
-MEXICO" 
1730 GOSUB 2680 

1740 FR$=INKEY$:IF FR$="" THEN 1740 
1750 IF FR$="2" THEN BEEP: P=F+ 1 : LINE (0 
,20)-(255,160),2,BF ELSE GOSUB 2^70:60 
TO 1740 

1760 B$="Quien gano el MUNDIAL 36?" 
1770 C$="1-DINAMARCA B :D$="2-ESPAÑA":E$ 
="3-ARGENTINA" 
1780 GOSUB 2680 

1790 FR$=INKEY$: IF FR$= B " THEN 1790 
1800 IF FR$="3" THEN BEEP: P=P+ 1 : LINE i 
,20)-<255,160),2,BF ELSE GOSUB 2770:50 
TO 1790 

1810 B*="Que demarcación ocupa el 

jugador del SPORTING, QUIÑI?" 
1820 C$="1-DELANTER0":D$="2-P0RTER0":E 
$="3-DEFENSA" 
1830 GOSUB 2680 

1840 FR$=INKEY$:IF FR$="" THEN 1840 
1850 IF FRI="1" THEN BEEP: P=P+1 : LINE i 
,20)-(255,160).,2,BF ELSE GOSUB 2770:60 
TO 1840 

1860 B*="Que iedida tiene el LARGUERO 
de la portería 1 *" 

1870 C$="l-6,98 i":D$=": 7,32 ■":E$="3 

-6,54 ■" 

1880 GOSUB 2680 

1890 FR$=INHY$:IF FR$=" THEN 1890 
1900 IF FR$="2" THEN BEEP: W+U LINE (0 
,20)-(255,160),2,BF ELSE GOSUB 2770:60 
TO 1890 

1910 B$="Coio se llana el canpo del 

REAL MADRID?" 
1920 C$="1-BENIT0 VILLAMARIN":D*='2-BE 
RNABEU":E$='3-LA ROMAREDA" 
1930 GOSUB 2680 

1940 FR$=INKEY$:IF FR$="" THEN 1940 
1950 IF FR$=-2" THEN BEEP: P=P+l : LINE (0 
,20)-(255,160),2,BF ELSE GOSUB 2770:60 
TO 1940 

1960 B$="Quien gano el MUNDIAL 82?" 

1970 C$="1-BRASIL':D$="2-FRANCIA":E$=" 

3-ITALIA" 

1980 GOSUB 2680 

1990 FR$ S INKEY$: IF FR$=" THEN 1990 




Te encuentras en un oscuro 
castillo abandonado, inten- 
tando encontrar una llave 
de oro para romper el he- 
chizo que te impide salir. 
Para lograrlo tienes que ha- 
cer estallar los barriles de 
TNT y esquivar los mons- 
truos y la corriente de lava. 
Un apasionante juego de 
aventura. . 




Población: 

Provincia: 

□ Deseo recibir: 



CP. 



El importe de mi pedido lo hago efec- 
tivo mediante: 

□ Cheque adjunto a nombre de: 
MSX CLUB DE CASSETTES 
C/RocayBatlle, 10-12, bajos. 
08023 Barcelona 




Programa 




La más rápida 
y completa batalla 
espacial . 



Nombre y Apellidos: 
Dirección: 



i Población: 
Provincia: 



CP. 



□ Deseo recibir: 



El importe de mi 
tivo mediante: 
□ Cheque adjunto a nombre de: 
MSX CLUB DE CASSETTES 
C/RocayBatlle, 10- 12, bajos. 



2000 IF FR$="3" THEN BEEP:P=P*1:LINE(0 
,20>-(255. 160) ,2,BF ELSE 605UB 2770:50 
TO 1990 

2010 8$="Cuando se creo la COPA DEL 
MUNDO 7 ' 

2020 C$=-l-1930-:D$=-2-l?38°:E$="3-192 
6" 

2030 GOSUB 2680 

2040 FR$=INKEY$:!F FR$='" THEN 2040 
2050 IF FF;$="i" THEN BEEP:P=P*1:LINE<0 
,22)-í255,160),2,BF ELSE GOSUB 2770:60 
TO 2040 

2060 B$="Quien gano el MUNDIAL ZV 

2070 CÍ="l-ITALIft":D$="2-R.F.A.":E$="3 

-BRASIL" 

20B0 GOSUB 2680 

2090 FR$=INKEY$: IF FR$="" THEN 2090 
2100. IF FR$=-1 " T HEN BEEP:P=P+1:LINE(0 
, 20) -(255, 160), 2, BF ELSE GOSUB 2770:50 
TO 2090 

2110 B$="De que nacionalidad es el 

jugador DA SILVA?" 
2120 C$=" 1-BPASIL" : D$="2-UPUGUAY" : E$=" 
'-PARAGUAY " 
2130 GOSUB 2680 

2140 FF:$=INKEY$:IF FR$="" THEN 2140 
2150 IF FR$="2" THEN BEEP:P=P+1:LINE(0 
,20;-(255,160),2,BF ELSE GOSUB 2 7 70:5O 
TO 2140 

2160 B$="Quien gano el MUNDIAL 50?" 
2170 C$="l-BRASIL':Dl='2-R.F.A.":E$="3 
-URUGUAY" 
2180 GOSUB 2680 

2190 FR$=INKEY$: IF FR$="" THEN 2190 
2200 IF FR$="3" THEN BEEP:P=P*1:LINE(0 
,20)-<255,160),2,BF ELSE GOSUB 2770:GO 
TC 2190 

22IÍ B$='En que temporada bajo el 

VALENCIA a segunda división?" 
2220 C$=" t-84/85" : D$='2-85/86" : E$="3-8 
6/87" 

2230 GQSUB 2680 

2240 FR$=INKEY$:rF FR$=" THEN 2240 
2250 IF FR$=-2" THEN BEEP:P=P*1:LINE(0 
,20)-(255,160),2,BF ELSE GOSUB 2770:60 
TO 2240 

2260 B$="9uien gano el MUNDIAL 70'" 
2270 C$="1-BRASIL":D$="2-ITALIA":E$="3 
-URUGUAY" 
2260 GOSUB 2680 

2290 FR$ S INKEY$: IF FR$="" THEN 22 5 
2300 IF FR$="T THEN BEEP:P=P*1:LINE(0 
,20)-(235,160) f 2,BF ELSE GOSUB 2770:50 
TO 2290 

2310 B*="Cuando se desarrollo la 

priiera edición de la C 



OPA DE EUROPA DE CLUBS?" i 

2320 C$="l-1944/1945":D$= n :-l 55':956" 

:E$="2-19:7/1938" 

2330 GOSUB 2680 

2340 FR$ S INKEY$: IF ?f¡%-"" T H EN 2340 
2350 IF FR$="2" THEN BEEP:P=P+1:LINE(0 
,20)-(255,160),2,BF ELSE GOSUB 2770:GO 
TG 2340 

2360 B$="Que denarcacion ocupa el 

jugador del BARCELONA, 6E 
RAPDO"" 

2370 C$="1-MEDI0":D$="2-DEFENSA H :E$="3 

-DELANTERO" 

2380 GOSUB 2680 

2390 FR$=INKEY$:IF FR$="" THEN 2390 
2400 IF FP$="2" THEN BEEP:P=P+1:LINE 
,20)-(255,160i,2,BF ELSE GOSUB 2770:60 

TC 23*0 

2410 B$="Quien gano el MUNDIAL ¿2?" 
2420 C$="l-BRASIL":DI="2-R.F.A. n :E$= , 3 
-URSS" 

2430 GOSUB 2680 

2440 FR$=INKEY$: IF FR$="" THEN 2440 
2450 IF FR$="l n THEN BEEP: P=P+1 : LINE (0 
,20)-(255,160),I,BF ELSE GOSUB 2770:GO 
TO 2440 

2460 B$= u Cuando gano BRASIL su segunda 

caipeonato del lundo?" 
2470 C$="1-1958":D$="2-1938":E$="3-196 
2" 

2430 GOSUB 2680 

2400 FR$=INKEY$: IF FR$="" THEN 2490 
2500 IF -P$="3" THEN BEEP: P=P+! : LINE (0 
,20)-(255,160),2,BF ELSE GOSUB 2770:60 
TO 2490 

2510 B$="Que medida tiene uno de los 

pales de la porteria?" 
2520 C$="l-2,44 «":D$="2-2,3B í*ílf»»3 
-2,16 b" 
2530 GOSUB 2680 

2540 FR$=INKEY$:IF FR$="" THEN 2540 
2550 IF FR$="1" THEN BEEP: P=P+ 1 : LINE (0 
,20)-(255,160),2,BF ELSE GOSUB 2770:60 
TO 2540 

2560 B$= n Quien gano el MUNDIAL 58?" 

2570 C$="1-ITALIA":D$="2-R.F.A.":E$="3 

-BRASIL" 

2580 GOSUB 2680 

2590 FR$=INKEY$: IF FR$="" THEN 2590 
2600 IF FR$="3" THEN BEEP: P=P+1 : LINE (0 
,20)-(255,160),2,BF ELSE GOSUB 2770:GO 
TO 2590 

2610 B$='Radio del circulo del aedio 

del caipo?" 
2620 C$='l-8,45 i n :D$="2-B,96 n":£$="3 
-9,15 ■' 




2630 G05UE 2680 

2640 FM*MKEYt:IF FR$=" THEN 2640 
2650 IF FR$«"3" THEN BEEP:F=P+l:LINEi0 
,20>-(255,160>,2.BF ELSE GOSUB Z 7 7i?:50 
TO 2640 

2660 FOP 1=30 TG Í60 STEP 10: FSET (100, 
I),2:C0L0R l3:PRINTll"i R A V 0":NEXT 
I 

2670 GOTO 2300 



2680 PSET!30,40),2:CGLOF 1:PFINT*¡,B$ 
2690 PSET(85,90),2:COLCP l5iPR]NT#l,CI 
2700 PSET(85,10!),::FF.INT#i.D$ 
2710 PSET(E'5,120),2:PF;INTtl,E$ 
2720 RETURN 

2730 IF EP=1 THEN P5ET i 135. 193), 2: COLO 
R 1 : DRAM A$ 

2740 IF EF:=2 THEN PSET f 160, 1S3) , 2: CGLG 
R 1¡DRAW A$ 



2750 IF ER=3 THEN PSET ( 185, 183) , 2: COLO 
R 1:CFAW A$ 
27cí RETURN 

27^ ER=ER* 1 : PLA Y " BC " : GOSUB 2730 
2780 IF ER=3 THEN FOR 1=1 TO 2000:NEXT 
IsGQTO 2800 
2790 RETURN 

2800 CLSrCOLOR 1,7:SCREEN 0:KEY OFF:LO 
CATE 6,4:PRINT"HAS ACERTADO" ;P; "PREGUN 

TAS" 

2810 IF P>45 THEN LOCATE lÍ,B:fRÍNT é SQ 
BRESALIENTE' 

2820 IF P>39 AND P<46 THEN LOCATE 12,3 
:PRINT"NOTABLE" 

2830 IF P>29 AND P<40 THEN LOCATE 13,3 
jPRINT'BIEN" 

2840 IF P>24 AND P<30 THEN LOCATE 10,8 
:PRINT-SUFICIENTE" 

2850 IF PM0 AND P<25 THEN LOCATE 10,8 

:PRINT"INSUFICIENTE" 

2860 IF P<11 THEN LOCATE 10,3:PRINT"HU 

Y DEFICIENTE" 

2870 LOCATE 10,6:PRINT"TU CALIFICACION 
■ 

2880 LOCATE 5, 19: PRINT-PARA EMPEZAR PU 
LSA LA BARRA" 

2890 IF INKEY$=" ' THEN RUN 
2900 GOTO 2890 



Test de listados i 



10 


- 76 


280 


- 29 


550 


- 13 


820 


-121 


1090 


-121 


1360 


- 56 


1630 


- 29 


1900 


- 87 


2170 


-180 


2440 


-196 


2710 


-254 


20 


- 58 


290 


- 86 


560 


- 30 


830 


- 29 


1100 


- 52 


1370 


- 33 


1640 


-161 


1910 


- 48 


2180 


- 29 


2450 


-126 


2720 


-142 


30 


- 58 


300 


- 16 


570 


«i 


840 


-126 


1110 


- 39 


1380 


- 29 


1650 


- 91 


1920 


- 46 


2190 


-201 


2460 


-240 


2730 


- 61 


40 


- 58 


310 


-155 


580 


- 29 


850 


- 56 


1120 


-235' 


1390 


-166 


1660 


-199 


1930 


- 29 


2200 


-133 


2470 


-224 


2740 


- 87 


50 


-220 


320 


-240 


590 


-131 


860 


- 58 


1130 


- 29 


1400 


- 98 


1670 


- 61 


1940 


-206 


2210 


-240 


2480 


- 29 


2750 


-113 


60 


-216 


330 


- 29 


600 


- 61 


870 


- 68 


1140 


-171 


1410 


-107 


1680 


- 29 


1950 


-137 


2220 


-128 


2490 


-246 


2760 


-142 


70 


- 4 


340 


-136 


610 


-125 


880 


- 29 


1150 


-103 


1420 


- 82 


1690 


-211 


1960 


-196 


2230 


- 29 


2500 


-178 


2770 


-109 


80 


- 33 


350 


- 66 


620 


- 23 


890 


-176 


1160 


-240 


1430 


- 29 


1700 


-143 


1970 


-199 


2240 


-251 


2510 


- 


2780 


-104 


90 


- 66 


360 


-169 


630 


- 29 


900 


-108 


1170 


-219 


1440 


-216 


1710 


-233 


1980 


- 29 


2250 


-182 


2520 


-253 


2790 


-142 


100 


- 8 


370 


-199 


640 


-181 


910 


-124 


1180 


- 29 


1450 


-146 


1720 


- 68 


1990 


- 


2260 


-193 


2530 


- 29 


2800 


- 72 


110 


- 52 


380 


- 29 


650 


-113 


920 


-230 


1190 


-221 


1460 


-197 


1730 


- 29 


2000 


-188 


2270 


i 5 


2540 


- 40 


2810 


-244 


120 


-239 


390 


-186 


660 


- 96 


930 


- 29 


1200 


-152 


1470 


-145 


1740 


- 5 


2010 


-251 


2280 


- 29 


2550 


-226 


2820 


-152 


130 


-121 


400 


-118 


670 


-101 


940 


-226 


1210 


-197 


1480 


- 29 


1750 


-192 


2020 


-214 


2290 


- 45 


2560 


-199 


2830 


-i¿2 


140 


- 86 


410 


-218 


680 


- 29 


950 


-15B 


1220 


- 54 


1490 


- 10 


1760 


-200 


2030 


- 29 


2300 


-231 


2570 


- 54 


2840 


- 97 


150 


-114 


420 


-188 


690 


-231 


960 


-195 


1230 


- 29 


1500 


-198 


1770 


-138 


2040 


- 50 


2310 


-077 
Í\J\J 


2580 


- 29 


2850 


-229 


160 


- 64 


430 


- 29 


700 


-162 


970 


- 54 


1240 


- 15 


1510 


-218 


1780 


- 29 


2050 


-236 


2320 


-229 


2590 


- 91 


2B6É 


-207 


170 


- 33 


440 


-236 


710 


-207 


980 


- 29 


1250 


-202 


1520 


-100 


1790 


- 55 


2060 


-193 


2330 


- 29 


2600 


- 23 


2870 


- ¿5 


180 


- 29 


450 


-168 


720 


-173 


990 


- 20 


1260 


-213 


1530 


- 29 


1800 


-243 


2070 


- 54 


2340 


- 96 


2610 


-1 ! 7 


2880 


_1C7 


190 


-241 


460 


- 22 


730 


- 29 


1000 


-208 


1270 


-184 


1540 


- 61 


1810 


-171 


2080 


- 29 


2350 


- 27 


2620 


- 20 


2890 


- 14 


200 


-172 


470 


-253 


740 


- 25 


1010 


- 73 


1280 


- 29 


1550 


-247 


1B20 


- 33 


2090 


-101 


2360 


- 58 


2630 


- 2? 


2900 


-236 


210 


-152 


480 


- 29 


750 


-213 


1020 


- 6 


1290 


- 66 


1560 


-150 


1830 


- 70 


2100 


- 31 


2370 


-100 


2fc40 


-141 






220 


-128 


490 


- 30 


760 


-189 


1030 


- 29 


1300 


-253 


1570 


-209 


1B40 


-106 


2110 


- 60 


2380 


- 29 


2650 


- 73 






230 


- 2? 


500 


-217 


770 


-213 


1040 


- 71 


1310 


-255 


1580 


- 29 


1850 


- 36 


2120 


-171 


2390 


-146 


2660 


-221 






240 


_ fe 

<iJ 


510 


-220 


780 


- 29 


1050 


- 1 


1320 


- 39 


1590 


-111 


1860 


-170 


2130 


- 29 


2400 


- 77 


2670 


-145 






250 


-223 


520 


-200 


790 


- 76 


1060 


-135 


1330 


- 2 o 


1600 


- 43 


1B70 


- 15 


2140 


-151 


2410 


-194 


2680 


-125 






260 


-107 




- 29 


800 


- 7 


1070 


-251 


1340 


-116 


1610 


-19B 


1880 


-29 


2150 


- 82 


2420 


-207 


2690 


-243 


TOTAL: 



23 



Programa 



Por Raúl Solé Pasto 



MAGIC 



10 ' tttttttttttttttttttttttttttttt 



¿9 
30 
40 
50 
60 
70 



tt 
tt 
tt 
tt 
tt 



MAGIC. 

POR RAUL & OLGA SOLE 
PARA MSX-CLUB 1987 



tt 
tt 
tt 
tt 
tt 



tttttttttttttttttttttttttttttt 

ñ ' GOSUB A LA PORTADA Y A LAS INSTRU 

CCIONES 

80 GÜSUB 680 

90 GOSUB 610 

100 COLOR 15, 1, 1: CLS: SCREEN 2:0PEN"GRP 
¡'ASUsCOlOR 15,1,1 

:i0 c=0 

120 !F C=¿ THEN GOTC 520 

125 ' DiseSo de U rejilla 

130 X=50:FOR Y=0 TO 186 STEP 30 

140 PSE7(X,0),8:DRAbrdlB0" 

150 PSET(50,Y).8:DRAWrí50" 

160 IF X=200 THEN 1*17* 

170 X=X+30:NEXT Y 

180 Y=12:Z=51 

18! ' Núaeros de la tabla 

190 DATA 3,11, 21,31, 41, 51, 5,13,23, 33.4 

3,53,7,15,25,35,45,55,5,17,27.37,47,57 

,1,19,29,39,49,5? 

200 DATA 3,11,21,31,42,51,6,14,23,34, 

43,54,7,15,26,35,46,55,10,18,27,38,47, 

58,2,19,30,39,50,59 

210 DATA 5,13,22,31,44,53,6,14,23,36, 

45,54,7,15.28,37,46.55,12,20,29,33,47, 

¿0,4,21,30,39,52,13 

220 DATA ",13,26.31,44,57,10,14,27,40 

,45,58,11,15,28,41,46,59,12,24,29,42,4 

7,60,8,25,30,43,56.13 

230 DATA 17,21,26,31,52,57,18,22,27,4 

8,53,58, 19,23,28,49,54, 59.20, 24,2", 50, 

55,60,16,25,30,51,56,31 

240 DATA 33,37,42,47,52,57,34,38,43,4 

8,53,58,35,39,44,49,54,59,36,40,45,50, 

55,60,32,41,46,51,56,46 

250 FOR N TO 30 

260 READ A 

270 PRESET (Z, Y) : PRINTil , A 
280 PRESET'Z,Y):PRINTil,A 
290 Y=Y*30 









Acepta el reto del ordenador. 
Pese a que no puedas creerlo 
adivinará cualquier número que 
hayas pensado con sólo unas 
pocas pistas. ¿Te atreves? 




500 IF Y=192 THEN Z=Z+30:Y=i2 
310 NEXT 

320 PRESET (5,184):PRINT#l,"¿Está aquí 
tú núiero (S/M?" 

330 I$=INKEY$:IF I$="S' OR I$=V THEN 
CLS: GOTO 360 

340 IF I$=V OR I*»9jí" THEN CLS:G0T0 
440 

350 60T0 330 
355 ' contador 
360 IF C=0 THEN H*l 
370 IF C«l THEN B«2 



380 IF C=2 THEN G=4 



390 IF C=3 THEN D=8 
400 IF C=4 THEN E s 16 
410 IF C=5 THEN F=32 
420 C=C*1 
430 GOTO 120 
440 IF C=0 THEN H=0 
450 IF C=l THEN B=0 
460 IF C=2 THEN G=0 
470 IF C=3 THEN D=0 
480 IF C=4 THEN E=0 
490 IF C=5 THEN F=0 
500 C=C+1 
510 60T0 120 
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520 J=H+B+G+D+E+F 
530 IF J=0 OR J>=61 THEN 600 
540 PRESET(7,5) :PRINT#l,"El núiero es: 
";J 

550 FOR H=0 TO 1000:NEXTM 

560 PRINT#1, :PRINTtl, : PRINTíll, " ¿Quier 

es volver a jugar?" 

570 0»MNKEY$:IF 0$="S" OR 0$=V THEN 
CLS:CLOSE:RUN 100 

580 0$=V OR Q$='N" THEN CLSrSCREE 
N0: COLOR 15,4, 4:END 
590 60TO 570 

600 PRINTI1," Lo siento, te has confund 
ido en":PRINTIl," alguna tabla. n :F0R W 
=0 TO 750: NEXTH: GOTO 560 
605 ' instruccienes 

610 CLS:C0L0P 15,1,1: KEY OFF: SCREEN0: L 
0CATEÍ,2:PRINT" INSTRUCCIONES. " 

620 LOCATE 8,3:PRINT" " 

630 LQCATE5,6:PRINT n Este juego trata d 
e que pi enses" : F'RINT" un núaero entre 
el 1 y el 60, y va- ":PRINT" lias ind 
icando al ordenador si está, " : PPINT" 
o no, tú núiero en las tablas que él 
PPINT" te irá enseñando. Al final, el 
orde-' 

640 PRINT" nador adivinará tú núiero. 
":PRINT:PRINT:PRINT:PRINT" Pulsa s 
pace." 

650 A$=INKEY$:1F A$=" 1 THEN 670 

660 GOTO 650 

670 RETURN 

675 ' presentación 

680 COLOR 6,1,1:CLS:SCREEN 2,1:C0L0R 6 
,1,1: OPEN "GRP : " ASI 1 : DEF USR0=*H4 1 : U=US 

690 PSET(130,165),15:DRAW"E110":PSET(1 
30,153), 15:ÜRAM"E110":CIRCLE(130, 159), 
5,15,,,2:CIRCLEi240,49),5,l5,,,2 
700 CIRCLE(140,149:,5,15,4.28,3.14,2:C 
IRCLE(230,59), 5,15,3.14,4.28,2 



710 PAINT(130,160),15:PAINT(240,49),15 
:PAINT(135, 155) , 15: PAINT (235, 54) , 15 
720 CIRCLE (120,35),60,15,,,1/3:CIRCLE 

(120, 140) , 45, 15,3. 14,6.28, 1/3 
730 LINE (75,140)-(75,49),15 
740 LINE (165, 140) -(165, 130) , 15:LINE(1 
65, 117) - ( 165,49) , 15 
750 CIRCLE (120, 71), 45, 15,3. 14,6.28,1/ 
4.5:PAINT(120,71),15 
760 CIRCLE(120,37) ,45, 15,6.28,3. 14, 1/3 
¡PAINT (120,71), 13 

770 PRESET ( 100, 180) : PRINTI1 , 'HAGIC: FP 
ESET(101,180):PRINTI1, , HAGIC* 
780 PRESET (205, 170) :PRINT#1, "Solé" :DEF 
USR0=iH44:U=USR0(0) 
785 ' MUSICA DEL PROGRAMA 
790 PLAY"o4vl519fr64gr64ar44o518cro4r 
64bl 10r64gró418al I0r34f r6418gl 10r34er¿ 
418fll0r34dr64eró4cr519fr64gr64ar44o51 
8cl7o4r64bll0r64gr6418all0r34fr6418gll 
0r34er6418fll0r34dr64er64cr5' 
800 PLAY"c4vl518dr6416dlBr64er64fr6416 
gl8r64tr64er50dr64dr64dr64dr6416dl8r64 
cr64drl018dr6416dll0r6¿er64fr O 416gl8r6 
4tr64er50ír6415glBr25" 
810 PLAY"o4vl513dr64er64^6417glBr44dr 
64er251Bcr64cr64cr6417flBr50cr64drl518 
dr64er64ír6416gl8r64fr64er64dr¿4i5di8r 
2518dr64gr6417a«18r6414£lBr64frl013a#l 
10r64arl01l0er64er64er64;6arS¿or6415b! 
Br¿4ar3" 

820 PLAY"o4vl514ar3518ar6415all0r40arl 
0ar64ar64gr64grl018gr6416gr64iear6416f 
18r44gr64er64gr64o516co4r6418br4014ar! 
!13ar6415all0r40arl0ar64ar64grí2g'1018 
gr64gr6416gl8r64ar64fr6416gr6413arir 

S3i PLflY , o4vl5Uar35il0ir5416fiU2r40ir 
10ar54ar5¿gr54 
840 FOR N>0 | 
850 




Test de listados 



10 

20 


- 58 


120 


-79 


220 


- 56 


340 -129 


450 


-235 


570 


-185 


675 


- 58 


785 - 58 


- 58 


125 


- 58 


230 


-172 


350 -226 


460 


-241 


580 


-101 


680 


- 24 


790 -184 
800 - 88 


30 


- 58 


130 


- 72 


240 


-200 


355 - 58 


470 


-239 


590 


-211 


690 


-154 


40 


- 58 


140 


- 38 


250 


-225 


360 -241 


480 


-241 


601 


-233 


700 


- 80 


810 - 70 


50 


- 58 


150 


- 98 


260 


-200 


370 -237 


490 


-243 


605 


- 58 


710 


-196 


820 -132 


60 


- 58 


161 


-131 


270 


- 96 


380 -245 


500 


-120 


610 


-193 


720 


-147 


830 -103 


70 
75 


- 58 


170 


-211 


280 


- 96 


390 -247 


510 


- 15 


620 


-112 


730 


-116 


840 -214 


- 58 


180 


- 40 


290 


-191 


400 -255 


520 


-142 


630 


- 86 


740 


-196 


850 -124 


80 


- 69 


185 


- 58 


300 


-218 


410 -241 


530 


-129 


640 


-143 


750 


-195 


90 


-255 


190 


-177 


310 


-131 


420 -120 


540 


-234 


650 


- 37 


760 


- 18 




100 


-237 


200 


-213 


320 


- 36 


430 - 15 


550 


-205 


660 


- 55 


770 


-201 


TOTAL: 


110 


- 67 


210 


-206 


330 


-189 


440 -240 




5ií 


-107 


670 


-142 


780 


-243 


12825 




EL VIEJO CONDE 
QUIERE HINCARTE 

EL COLMILLO 
LUCHA A MUERTE 

Y ESCAPA DE 
SU TERRORIFICO 
CASTILLO 



POR SOLO 800 PTAS. 



Programa 



,Por Enrique I. Graziano 




SGR 4.7 



ipletísimo programa de grá- 
ficos de gestión, con una agra- 
dable entrada de datos que per- 
mite realizar desde el más senci- 
llo gráfico lineal a complejos 
gráficos con porcentajes o datos 
absolutos. 



10 'tiHMttia»Mtt«M*»«fftit 
20 '* i 
30 '• SGR 4.7 I 
40 'I I 
50 'I de E.I.5ra:iano 
¿0 '« ft 
70 'I para MSX Club « 
80 'I I 
90 '«itttt4ti#liHtt*»tf»tH 
100 ' 

110 ' Presentación 

120 ' fttttltlfttt tltltlllf MMIMItIMM 

130 COLOR 1,15,15 
140 SCREEN . 
150 WIDTH 37 
160 KEYOFFíCLS 

170 PRINT-Enrique I Graziano":PP.INT:PR 
INT: PRINT : PRINT" presenta: " : PRINTTAB ( 1 
);"S6R 4.7":F0R >\ TO 2000:NEXT 
180 FOF; 1=1 TC 2000:NEXT 
190 CLEAR 5000 
200 DN STOP GQSUB 2730 
210 STOP QN 
220 GOSUB 1840 
230 BOTO 1030 
240 CLS 
250 • 

260 ' Entradas de datos por ,nedio 

del teclado 
-270 • i * *m m* n mmmmmnm 

280 INPUT-Datos a i ntroduc i r " ; DI : IF DI 
>10 THEN DIMAíDI+l) f BiDI+l) , L$(DI+1) 
290 ¡F DI=7 OR DI=12 THEN 60SUB 2210 
300 CL3:PFINTTABÍ5) ¡"Menú de entradas" 
:PRINT:PRINT:PRINTTAB(5);">A-Introducc 
ion por datos":PRINT:PRINTTAB(5);">B-I 
ntroduccion por porcentajes" 
310 PRINT:PRlNT:PRINTTAB(5);"opcion?"; 
:R$=INPUT$(1):IF R$=V OR R$="A" THEN 
FL=i:G0TQ 910 ELSE FL=0 
320 CLS 

330 FOR 1=1 TO DI 

340 IF SICOl THEN PRINT "Dato"; I: INPU 
T A(I) ELSE PRINT-Valor de ";L$(I);:IN 
PUTA(I) 

350 IF SICOl THEN PRINT'noibre del da 
todenos de 10 letras) ": INPUT L$(I):IF 



■ 




LEN(L$(li ))? THEN 350 
360 K«K+A(I):IF K>100 THEN SOTO 1910 
370 NEXT: IF KO100 THEN A(DI+1)=(100-K 
):L$(DI+l)="restc":DI=DI*l 
380 SOTO 1300 
390 ' 

400 'Gráficos de Tarta 

410 'IIMIIttlIMttltlIltltlMIMIII 

420 SCREEN 2: COLOR 3, 1,1: CLS 

430 OPEN "GRP:" ASI1 

440 PRESEK10, 10) ,1:PRINT#1, " Gráfico d 

e tarta' 

450 PRESET ( 10, 20) , 1 ¡ PRINTIl , "datos" ; DI 
460 PRESET(30,180),l:PRINTIl,Zf 
470 PRESET(3i,lB0),l:PRINTIl,Z$ 
480 CIRCLE(200,70),50,5,,,1.4:PAINT(20 
0,701,5,5 

490 V=0:FOR J=l TO DI 
500 B(J)=A(J)/100 
510 NEXT J 
520 FOR 1*1 TO DI 



530 PRESET(200,70),1 
540 V=V+B(I-1) 

550 X=C0S(VI2I3. 14)155: Y=SIN(V»2t3. 14) 
155 

560 IF X>0 THEN F6=- 15 : HI =- 1 5 
570 IF Y<0 THEN FG=-10:HI=-10 
580 LINE-STEP(X,Y),1 
590 NEXT 

600 PRESET(5,20):PRINTil," " 
6Í0 FOR N=l TO DI 

620 PRESET(5,20+N»10):PRINTI1,USING "I 

#*#.M";A(N);:PRINTI1,"X-";L$(N) 

630 PRESET(6,20+Nll0):PRINTil,USING "i 

Hi.tt a ¡A(N);:PRINTtl 9 -Z- B ;L$(N) 

640 NEXT 

650 PRESET(190,160):PRINTI1,"[SPC]" 
660 PRESET(191,160):PRINTI1,"[SPC1" 
670 CLOSE 

680 IF STRIG(0)=-1 THEN SCREEN 0:COLOR 
1,15:60T0 1300 ELSE 680 
690 ' 



26 



700 'Gráficos de barras 
710 'Itlllllltttttltllllltlltlltllllll 

720 DS=(156/DI) 

730 SCREEN 2:C0L0R 3, 1 , 1 : CLS: OPEN 'grp 
:-AS#l:PRESET(5,2):PRINT#l,'Datos';DI 
740 LINE(0,10)-(75,165),15,B 
750 PRESET(5,18f):PRINTtl,"CSPC]" 
760 PRESEK6, 180) :PRINT#1, -CSPC3" 
770 LINE (100,192)-<256,1),3,B 
780 LO=192/10:FOR 1=1 TO 10: LINE (95, LO 
II)-(256,L0II),3:NEXT 
790 COLOR 15: FOR 1=1 TO 9: PRESET (70, LO 
tI-4):PRINTH,INT(100-(Itt0)) 
BM PRESET(71,LQII-4):PRINTil,INT(100- 
(I*10)):NEXT 
810 FOR 1=1 TO DI:Q=Q+1:IF 9=14 THEN Q 
=0 

820 LINE(100+(I-1)*DS,192)-(100+(I-1)$ 
DS+((156-5)/DI),192-(1.92tA(I))),Q+2,B 
F 

830 PRESET (5, 1*9+4) ¡COLOR 9+2:PRINT#l, 
L$(I) 

840 PRESEK6, 119+4) ¡COLOR Q+2:PRINT#1 , 
Lf(I) 
850 NEXT 
860 CLOSE 

870 IF STRIG(0)=-t THEN SCREEN 0:COLOR 
l,15:60TO 1300 ELSE 870 
880 ' 

890 ' entradas por teclado 

900 ' ttlItiltttlIltlIlItlMIttltlIllll 

910 CLSsDIK H(DI) 

920 IF TE+DDI THEN 970 ELSE FOR Y=TE+ 
1 TO OI 

930 IF SICOl THEN PRINT'Valor N2";Y;: 
INPUT H(Y) ELSE PRINT'Valor de ";L*(Y) 
JSINPUT H(Y) 

940 IF SICOl THEN PRINT: PRINT: PRINT'N 
oibredenos de 10 letras)";: INPUT L$(Y 
):PRINT:PRINT:PRINT:IF LEN(L$(Y))>9 TH 
EN 940 

950 SUH=SUH+H(Y) 
960 NEXT 

970 FOR 1=1 TO DI 

980 A(I)'(H(I)/SUH)tl00 

990 NEXT 

1000 60T0 380 

1010 ' ttenu di entradas 

1020 ' •IIIIMIIIIIIIIIIIMtIltIMIMM 

1030 CLSjPRINTTAB(15)j"Mmu E/S" ' 

1040 PRINT 

1050 PRINT: PRINTTAB (5) j " >A-Cargar disd 
e la cassette" 

1060 PRINT: PRINTTAB (5) ; ">B-Entradas de 
sde el teclado' 

1070 PRINT:PRINT;PRINT:PRINTTAB(10);'S 

eliccione opción" 

1080 RI'INKEYlilF R$=" THEN 1080 

1090 IF RM'A" OR RMV THEN 1150 





1100 IF R$='B" OR R$="b" THEN 240 
1110 GOTO 1080 
1120 ' 

1130 'Carga desde el cassette 

1 140 ' tllt«llltll«ttttttltlltlltltM|| 

I 

1150 CLS:PRINT"Carga desde- Cassette" 

1160 R$="":PRINT:PRINT:PRINT:INPUT"¿No 

■bre del archivo";R$ 

1170 R$="cas:"+R$ 

1180 OPEN R$ FOR INPUT ASI 

1190 INPUT II, FL: INPUT tl,DI:S=DM:DI 

H A(S),B(S),L$(S),H(S) 

1200 IF FL=1 THEN INPUTI1,X$ 

1210 FOR 1=1 TO DI+1 

1220 IF EOF(l)=-l THEN I=D 1+1 : NEXT: CLO 

SE:GOTO 1300 

1230 INPUT ll,A(I):INPUTtl,L$(I) 
1240 T FL=1 THEN INPUT il,H(I) 
1250 NEXT: CLOSE 

1260 PRINT'Carga realizada":FOR L=l TO 
1000:NEXT:6OTO 1300 
1270 ' . 

1280 'Henu principal 

1290 ' •lltlMtlttM«tttffllMilH«««IMII 

1300 CLS:PRINTTAB(3); u h*enu de Salidas" 
1310 PRINT:PRINT:PRINT:PRINTTAB(2);">A 
-Gráficos porcentuales de Tarta" 
1320 PRINT:PRINTTAB(2);">B-Graficos po 
rcentuáles de -Barras" 

1330 PRINT:PRINTTAB(2);">C-Salvar en C 
assette" 

1340 PRINT:PRINTTAB(2);">D-Reiniciahz 
ación" 

1350 IF FL=1 THEN PRINT: PRINT TAB(2);" 
)E-Graficas lineales absolutas" 
1360 IF FL=1 THEN PRINT: PRINT TAB(2)j* 
>F-Grafica5 de barras absolutas" 
1370 R$=INKEY$:IF R*=" THEN 1370 
1380 IF R$="A" OR R$="a n THEN 420 
1390 IF R$="B" OR R$="b" THEN 720 
1400 IF R$="C" OR R$="c w THEN 1480 
1410 IF R* S "D" OR R$*"d M THEN RUN 
1420 IF (R$="e" OR R$="E") AND FL=1 TH 
EN 2540 

1430 IF (R$=T OR R$="F") AND FL=1 TH 

EN 2540 

1440 60T0 1370 

1450 ' 

1460 'Salida a cassette 

1470 'tl«llltltlllHt#MMtll«Mt«HII 

1480 CLS:PRINT"Salida a Cassette' 
1490 PRINT:PRINT:INPUT"¿Noabre de aren 
ivo";R$ 

1500 RI-'cau'+Rt 

1510 OPEN R$ FOR OUTPUT ASI * 

1521 PRINTIl.FL 

1331 PRINTtl,DI:IF FL=1 THEN PRINTIl.X 



1540 FOR 1=1 TO DI 

1550 PRINTI1,A(I):PRINTI1,L$(I) 

1560 IF FL=1 THEN PFINTIl.HC) 

1570 NEXT 

1580 CLOSE 

1590 PRINT"Srabacion efectua.V :F0RI=1 
TC 1000:5CTC 1300 



1610 'Gráficas lineales 

1620 'll«#«H«tl«ltttitlMlilltlHMM 

1630 IF XfO" THEN 1650 ELSE CLS:PRIN 
T TAB(55;"6raficas lineales" 
1640 PRINT:PRINT:PPINT:PPIN T \'¡2fntjre d 
e la Grafica^-.LIMINPUTXIsIF LEN(X$)> 
30 THEN PRINT-Nonbre demasiado largo": 
GOTO 1640 

1650 SCREEN 2:0PEN"grp:"ASl 

1660 COLOR 3,1,1:CLS 

1670 PSETU0,130):PRINTIl,X$ 

1680 LINE(10,10!-(200,110),3,B 

1690 FOR 1=0 TO 10 STEP 2: LINEÍ 10, (1*1 

0)+10)-(205,(Ill0)+10),3:NEXT 

1700 DU=190/DI 

1710 PSET (10, 110) ,3 

1720 FOR TT=0 TO DI- 1 

1730 YU=110-(H'TT+1!/MA)I100:IF YU<10 

THEN YU=10 

1740 LINE-(12+DUtTT,YUi,3:CIRCLE STEP( 

0,0),3,T:NEXT:LINE-(200,110),3 

1750 PSET(10,140):PRINTfl,"?1adso:";HA 

1760 PSET(10,180):COLOR 9:PRINTI1,ZI 

1770 PSETíll, 180) :PPINT#1,Z* 

1780 PSET(210,150):COLCR 15: PRINTtl , " C 

SFC] n 

1790 PSET(211,150J:PFINT!»1."CSPC]" 
1800 IF STRIG(0)=-1 THEN CLOSE: SCREEN 
0:COLOR 1, 15, 15:6ÜT0 1300 ELSE 1800 
1810 ' 

1820 'definición de zf 
y proceso de errores 

1830 ' mm tmmmm mmmun 

1840 Z$=CHR$(40)+CHR$(99)+CHR$(41)+CHR 
i ( 32 ) +CHfi$ (71) +CHPI (114) +CHR$ ' 97 1 +CHRI 
(122)+CHR$(105)+CHR$(97)+CHR$C10)+CHR 
*(1U)+CHR$(32) 

1850 Z$=Z$+CHR$ (83) +CHRf ! 1 1 1 ! +CHR$ (102 

)+CHR$(116)+CHR$(46) 

1860 ON ERROR GOTO 1870:RETURN 

1870 IF ERR=19 THEN PRINT"Error de ";: 

IF ERL<1270 THEN PRINT'Carga" ELSE PRI 

NT"6rabacion" 

1880 IF ERR=19 AND ERLÜ270 THEN CLOSE 

:F0R 1=1 TO 1500:NEXT:RESUHE 10 

1890 IF ERR=19 THEN CLOSE: FOR 1=1 TO 1 

500:NEXT:RESUHE 1300 

1900 J=ERR: ERROR J:ST0P 

1910 CLS 

1920 PRINT'Los datos que ha introducid 
o 1 

1930 PRINT"suian:";K;" lo cual.obviaie 
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Programa i 



— 




ntt" 

1040 pRINT'ts mayor que cien." 

195? PR I HT : I WT f PRÍMt 

1960 FFINT-Tal como estar, estas ertrad 

as" 

1971 PRBIPsola pueden ser procesadas 
i 

CORO 

1930 PRINT* datas y no ceno porcentajes 
n 

1990 PF I NT : F P I NT : PP I NT : F P I NT " PULSE 
I5PC3 PARA CONTINUAR' 
2000 IF STRI6(0K>-i THEN 2000 
2010 CLS 

2020 PRINT" ¿Cual es sú elección'"' 
2030 PRINT; PRINT; PRINT 

204? PRINT W >A-Reiniciaü:ar el sistema 
i 

2050 PRINT: PRINT 

2l'£0 PRINT">B-ToMr estas entradas coa 
o" 

20?0 PRINT* dates." 

2080 R*=INKEY$:IF Rí="" THEN 2080 

20 c IF F$="A" OR R$=' ! s" THEN I=DI : NEX 

T:RL!N 

2100 IF RIO-E" AND s$ ;•»►>•' THEN 2060 

2119 TE=I:I = E'I:NEU 

2120 CkSiPRINT'gk." 

2132 PRINT'Contir.uan las entradas en" 

2140 PRINT "un momento." 

2158 K(0)=0: ERASE hÍDIfl H (DI i 

2160 FGR 1=1 TG TE:HÍI1=A(U I:=0:SU 

(t*SÜH+H(U:NEXT 

2170 FL= 1 : GGTG '20 

2180 ' 

2190 ' Ayudas a entradas spaanales 

;• «casuales 
2200 ' |Ítlll|f4lllf|lí|«ÍÍ|tilít*l|t|f 

mi cls 

2220 PRINT "¿Desea sntrar datos que ten 
gan" 

2230 PRINT" como noibre los meses o di 
as" 

2240 PRINT" ce la semana" i ¡ INPUT A$ 
2250 ¡F INSTRlAf.VKÍI 3R INSTRW," 
S")<>0 THEN 2280 
22Ó0 CLS 

2270 PRINT'Disculpe la úiQlestia'sFQR I 
=1 TO 1500:NEXT:RETURN 
2280 IF DI=7 THEN FESTOPE 2300¡FOR 1=1 
TO DI:READ L$(I>:NEXTíS1C=1:RETURN 
2290 IF DI=12 THEN RESTORE 2310:FOR 1= 
1 TO DI t REAS L*'.I) :NEXT:S1C=1:RETURN 
2300 DATA Lunes, Hartes, Ulereóles, Jueve 
s, Viernes, Sábado, Domingo 
2310 DATA Enero, Fsbrsrc, Marzo, Abril, Ha 
yo, Junio, Julio, Agosto, "Septiemb. ", "Oct 




ubre" .NcvieíiiOre, Di cieibrs 
2320 ' 

2330 ' Barras por datos 

2340 'lll»lflllfiH*llfllltltlltilf«ll 

2350 DS*(15Ml) 

2360 SCPEEN 2: COLOR 3, 1, 1:CLS:0PEN "gr 

p: ,, AStl:FFESET'5,2!:FRINT*l,"Datos";DI 

2370 LINE(0,10)-(75,165),15,B 

2380 PRESET(5,167):PRINT#1,"[SFC]" 

2390 PRESET ( 6 , 1 67 ) : F R I NTt 1 , •* C SF C 3 " 

2400 PRESETí6,t30)¡PPINT»l,"nV,";MA 

2410 LINE (100, 1921-1256,1), 3,B 

2420 LO=192/10:FOF, 1=1 TO 10:LINE(95,L 

0II)-(256,L0tI),3:NEXT 

2430 FOR 1=1 TO DI:Q=Q+1: IF 0=14 THEN 

0=0 

2440 m*m-(ÍmmmW NH<0 TH 
EN NM=0 

2450 LINE(100+(I-l)tDS,192)-(100+(I-l) 

IDS+((156-5!/DI),NH),Q+2,BF 

2460 PRESETE, 119+4) :COLOP Q+2:PRINTtl 

,LS(I) 

2470 PRESET (¿,,1$ 9+4) : COLOR Q*2:PF:INT#1 

,L$(I) 

2480 NEXT 



2490 CLOSE 

2500 IF STRI6(0)=-1 THEN SCREEN 0:COLO 
R l,I5l6QT0 1300 ELSE 2500 
2510 ' 

2520 ' Entradas de posibles /alores 
máximos 

2530 ^««««««««««««^««««««^««««pyjl 

2540 CLS: PRINTTAB (9) ; "Gráficas Absolut 

35" 

2550 PRINT:PRINT:PRINT:PF:INT 
2560 PRINTTAB (5> ; ">fi-Tomar como valor 
maxid!o":PRINTTAB(B);"el del elemento m 
ayor":PRINTTAB(8); n del conjunto." 
2570 PRINT: PRINT: PRINTTAB (5) ; : ' >B-Tooar 
como valor fcaxiic" : PRINTTAB (B) ; "otro 
a su elección." 

2580 PRINT:PRINT:PRINT:PRINTTAB(10>;'S 
eleccione opción" 

2590 F$=INKEY$: IF F$=" THEN 2590 
2600 IF F$="a" OR F$="A" THEN 2660 
2610 IF F$="b" OR F$="B" THEN 2650 
2620 60T0 2590 

2630 IF R$='e u OR R*="E" THEN 1630 
2640 IF R$="f 
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¿030 INrui bwUál es JnRIbUlU ÍOyfl 




m nn ? 

2700 




2750 CLS 


n ¿¿fl MA-fliCnc t-i m nr 
¿oo0 nfl-w : rUK 1-1 10 DI 




2710 'Rutina stop 




27ó0 WIDTH 37 


9A7fl IC MA,'LWT\ TUTU MA-U/n 








2770 KEYON 


2680 NE XT 




2730 SCREEN 0:CLOSE 




2780 CLEAP 200 


2690 BOTO 2630 




2740 COLOR 15,4,4 




27°0 END 



r 



Test de listados i 



10 - 58 
20 - 58 
30 - 58 
40 - 58 

50 - 58 
60 - 58 
70 - 58 
80 - 58 
90 - 58 
100 - 58 
110 - 58 
120 - 58 
130 - 99 
140 -214 
150 -212 
160 -144 
170 -185 
180 - 85 
190 - 73 
200 -116 
210 - 37 
220 -210 
230 -161 
240 -159 
250 - 58 
260 - 58 



779¡ 
ítv 


JO 


C7fl 

jjB 


1 "7/1 

-1/0 


790 
800 


-141 


1050 


- 31 


1 71 
1 j 1 


ta 


1 CTfi 

1j/0 


1 71 
-lil 




- 58 


2090 


1 en 

-150 


¿JJ» 


7 



2610 


-172 


Í.UV 

290 


4» V ~ 


CJ 1 


1 ao 
-108 


- 61 


1060 


-134 


i /2 


1 

- 6 


1 can 

1j80 


-180 


1840 


- 25 


2100 


- 69 


""ifl 


1 fL 

-I j6 


2620 


-191 

* * * 

-202 


w JB 


- ¿4 


810 


- 77 


1070 


i j 

- 16 


1 ?^fl 

13 ji 


- ¿4 


1 cea 
1J70 


-Zfa 


1850 


- 51 


- 1 1 - 

2110 


-141 


"J77fl 
¿J/0 


- 1 "0 


2630 

Z:*0 


300 

-Vi.' 


-114 

• • • 


JDV 


- 1 

lo 


820 


-128 


1000 


-¿II 


1 541? 


- j0 


1000 


en 
" JO 


1 ni ,] 

1860 


-¿39 


2120 


-150 


"70fl 
¿JOS 1 


_ «1/ 
¿6 


-159 


310 


- 89 


c.ia 
3/0 


_ 1 1 

11 


830 


- 52 


1070 


"¿¿4 


1¿j0 


-213 


1 L 1 ti 

1610 


en 

" JO 


1870 


-156 


2130 


-233 


¿•-•70 


~ ¿1 


2650 


-184 

* w 1 


320 


-159 


cn.j 
JOB 


^77 


840 


- 53 




- Ofl 
au 


lw60 


-¿05 


lc20 


en 

- JO 


18B0 


-109 


2140 


-229 


*.400 


i 70 
"1 '7 


2660 


-250 


330 


- 50 


370 


171 
"1¿1 


850 


-131 


1 1 1e> 


-¿11 


1370 


- 6 


1 L t ?\ 


4. . ^ 


1B°0 


-173 


2150 


-133 


fu i n 
¿410 


-io4 


26 7 


- -¿ 


340 


- 46 


ove 


¿J J 


n / íi 

860 


-ia0 




_ CQ 

JO 


lo80 


- 3 


1640 


rin 

-¿48 


1900 


- 15 


2160 


-220 


¿ a >0 


- 63 


2680 


-n 


350 


- 66 


Al ñ 


ce 


0"»fl 


1 07 


1110 


- e ,p. 


1 70(1 


- J0 


10 j0 


70 

- 10 




1 c m 

-15 w 


21. 


ice 






26^0 




J J 


□ .'0 


A 1 V V 


JO 


1910 


- / . ; 




360 


-176 


0¿t> 


-1?'? 
l¿¿ 


000 


C Q 

JO 


1140 




1 14/1 

1400 


- 47 


16c0 


* n 


1 9 2 f? 


-214 


2 380 


- 58 






2700 


- ^8 


370 


- i 


¿7(1 
O¿0 




00/i 


co 
- JO 


1150 

1 A wl 


-205 


1410 


-224 


1670 


-HS 


1930 


- 14 


2190 


- 53 


2450 


- 25 


2710 


- e R 

wO 


380 


-176 


a¿a 
olí? 


-t71 

lol 


ivv 


" JO 




-? ? .4 


1420 


- 53 


1680 


-207 


1940 


-237 


2201 


- 58 


*460 


- 52 






390 


- 58 


650 


-202 


910 


-133 


1170 


-129 


1470 


j j 


1690 


-''11 


l 1 Jv 


_ re 




l JT 


»»~ 1 V 




2730 


-196 


400 

410 


- 58 


660 


-203 


920 


-254 


1180 


-242 


1440 


-246 


1700 


-214 


1960 


- 93 


2220 


-206 


2480 


-131 


2741 


- 93 


- 58 


670 


-180 


930 


- 40 


119-3 


- 64 




c 
- JO 


1710 


_ ni 
i. i 


1 0"»il 
17/0 


IB 

- 48 


2Z¿0 


-12? 




loe 


2750 


-159 


420 


- 56 


680 

WWfc' 


_ n 


940 


-231 


1200 


- 90 




- 58 


1720 


-148 


1980 


-192 


2240 


- 63 


2500 


- 77 


2-60 


-212 


430 


-224 


690 


- 58 


950 


-138 


1210 




1470 


- 5E 


1730 


-149 


1990 


- 52 


2250 


- 20 


2510 


- 58 


2770 


- 97 


440 


-192 


700 


- 58 


960 


-131 


1220 


-194 


1480 


- ' P7 


1740 


-230 


2000 


- 48 


~*U? 


=ÍP 


•2224 


- 58 


27S0 


-105 


450 


- 13 


710 


- 58 


970 


- 50 


1230 


-235 


1490 


-208' 


1750 


-209 


2010 


-159 


2270 


-154 


2530 


- 56 


2790 


-129 


460 


- 24 

- 25 


720 


- 3 


980 


- 76 


1240 


-192 


1500 


-129 


1760 


-214 


2020 


- 67 


2280 


- 85 


2540 


- 1 7 

j 






470 


730 


-136 


990 


-131 


1250 


-113 


1510 


-188 


1770 


-l c 3 


2030 


- 39 


2290 


- 99 


2550 


-242 






480 


- 10 


740 


-139 


1000 


- 20 


1260 


-240 


1520 


-132 


1780 


-232 


2040 


-142 


2300 


- 7 


2560 


- 04 






490 


-195 


750 


- 39 


1010 


- 58 


1270 


- 58 


1530 


- 31 


1790 


-212 


2050 


- °2 


2310 


- 18 


2570 


-177 






500 

510 
520 


- 15 
-205 

- 50 


760 
770 
780 


- 40 

-164 

- 63 


1020 
1030 
1040 


- 58 

-10! 
-145 


1280 


- 58 


1540 


- 50 


[W 


-159 


2060 


-165 


2320 


- 5fi 


2580 


- 16 






1290 
1300 


- 58 

- 32 


1550 
1560 


-204 


1610 
1820 


- 58 

- 58 


2070 
2080 


-30 
-175 


2330 
2340 


- 58 

- 58 


2590 
2600 


-183 
-180 


TOTAL: 
31668 





























SUSCRIBETE A HM 

Suscribiéndote no sólo tienes la seguridad de tener todos los meses tu 
MSX CLUB DE PROGRAMAS en tu easa sino que recibirás 12 
números pagando sólo 10 



BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



Nombre y apellidos 

Calle jsj o 

Ciudad Provincia 

D- Postal , Teléfono 

Deseo suscribirme por doce números a la revista MSX CLUB DE PROGRAMAS a partir del número 

que pago adjuntando talón a la orden de: MANHATTAN TRANSFER, S.A. - C/ Roca i Batlle, 10-12 - 08023 Barcelona 

Tarifas: España por correo normal Ptas. 2.250, — 

Europa por correo normal Ptas. 2.600, — 

Europa por correo aéreo Ptas. 3.250,— 

América por correo aéreo USA$ 35USA$ 

Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB. NO SE ADMITE CONTRAREEMBOLSO. 
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YA ESTA EN TU QUIOSCO. Stop 
UNA REVISTA EXCEPCIONAL. Stop 



Diseñada para servir 



al usuario de un PC. Stop 



EL COMO Y EL POR QUEDE 
UN STANDAR COMUN Stop 




OTRO PRODUCTO MANHATTAN TRANSFER; S.A. Stop 



A la vanguardia de la prensa útil. Stop 
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¡NOS APLICAMOS A SER UTILES! 

A TMVES DE MSX CLUB DE MAILING PUEDES ADOU1RIR 

I 



BASICTUTORIDEALOCIC 





ADAPTADORES TARJETAS | 
INTELIGENTES 



No te quedes 
al margen 
y disfruta 
de las tarjetas 
inteligentes. 
Lo último 
en soft. 



ENVIA HOY MISMO ESTE CUPON ■ 



Nombre y apellidos 

I Dirección 

I Población 




CP 



Prov. 



Tel. 



□ Tutor Basic Ptas. 3.500- □ Adaptador Bee Card Ptas. 2.850- 

□ SweetAcorn Ptas. 5.200- □ Backgammon Ptas. 5.200- 

□ Barn Stormer Ptas. 5.200- □ Chock'n Pop Ptas. 5.200- 

Gastos de envío por cada producto 100- pts. Remito talón bancario de 

Transfer, S.A. Enviar a MSX CLUB de MAILING, Roca i Batlle 10-12 bajos - 08023 Barcelona. 



I 
I 
I 

pts. a la orden de Manhattan | 

i 



□ Adaptador Softcard Ptas. 2.850- 

□ Shark Hunter Ptas. 5.200- 

□ Le Mans 2 Ptas. 5.200- 
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MSX Software, 



,Por Joaquín López, 



MSXDOS, EL "DOS" 
DEL ESTANDAR (II) 



Han llegado a nuestros oídos 
voces airadas criticando la falta 
de utilidad del MSXDOS. Es 
importante, pues, aclarar las po- 
sibilidades y el funcionamiento 
. del "DOS" del estándar. 



EL PORQUE DEL MSXDOS 

Cuando un usuario se hace por 
primera vez con el disco del 
MSXDOS y mira el directorio 
ve aparecer dos ficheros, 
MSXDOS.SYS y COMMAND.COM. 
Para los que han probado el CP/M o el 
MS-DOS en otro microordenador, la 
primera impresión es que el MSXDOS 
debe servir para muy poco, puesto que 
los otros sistemas presentan un direc- 
torio repleto de ficheros que, a primera 
vista, parecen cubrir tocias las necesi- 
dades. Así, nombres como PIP, SUB- 
MIT, MOVCPM, SYSGEN, XSUB, 
PUT, ED, etc.; deslumhran cuando 
aparecen en la pantalla. 

Sin embargo, no hay que dejarse en- 
gañar por las primeras impresiones. 

Dejemos de lado al MS-DOS e in- 
tentemos comparar el MSXDOS con el 
CP/M. 

El CP/M fue, durante bastantes 
años, el rey indiscutible de los sistemas 
operativos de disco disponibles para 
microordenadores. Para él se han escri- 
to, y se siguen escribiendo, infinidad de 
programas, con el aliciente de que con 
unos pocos retoques se pueden hacer 
correr las mismas utilidades en ordena- 
dores diferentes, con la sola condición 
de que tengan para ellos una versión 
del CP/M. 

Crear un sistema operativo, el 
MSXDOS, compatible con el CP/M, 
ha sido, sin duda, un gran acierto de los 
fabricantes de MSXs, puesto que abre 
para el estándar la gran biblioteca de 
programas de aquel. 

Ahora bien, pensar que el MSXDOS 
es un simple "clon" del CP/M es falso. 
En realidad, y dejando a parte la seudo- 
compatibilidad, poco o nada tienen 
que ver ambos sistemas. 

EL CP/M ANTE EL 
MSXDOS 

El MSXDOS no tiene nada que en- 
vidiar a la versión más extendida del 
CP/M, la 2.2. 

Esta última carece, incluso, del soft- 
ware emulador de segunda unidad 



* PROCESADOR DE ORDENES DE CONSOLA DEL MSXDOS * 


T E C L A < S ) 


FUNCION 


CURSOR ARRIBA 


sitúa el cursor al inicio del b u f f e r 


CURSOR ABAJO 


sitúa el cursor al final del buffer 


CURSOR DEPECHA 


muestra un nuevo carácter 


CURSOR IZQUIERDA 


se comporta como BS 


SELECT + cir ioter 


copia caracteres hasta llegar al espeoifioado 


~C 


aborta el comando en ejecución 


" H 


se comporta como BS 


~J 


crea una nueva linea de escritura 


* K 


pone la nueva línea en el buffer 


"L+caracter 


salta caracteres hasta llegar al especificado 


-N 


cancela el eco de impresora 


" P conecta el eco de impresora 







(B:), así que los ficheros sólo pueden 
ser copiados (con PIP) en el mismo dis- 
quette. Para hacer un "bakup" de un 
disquette completo, hay que construir, 
o adquirir, una utilidad independiente. 
En los MSX, por el contrario, se puede 
hacer referencia al disco B: aunque no 
exista físicamente, permitiendo inter- 
cambiar disquettes en ordenadores 
con una sola unidad. Además, es posi- 
ble "desconectar" el emulador mante- 
niendo la tecla "CTRL" apretada du- 
rante el encendido, para ahorrar me- 
moria. 

Por otra parte, emplear un fichero 
por lotes en el CP/M necesita del auxi- 
lio de dos utilidades, SUBMIT.COM y 
XSUB. En los MSX basta teclear la or- 
den "COPY CON NOMBRE.BAT" 
para abrir un fichero ".BAT" de proce- 
so por lotes, en el que es factible usar el 
símbolo "%", seguido por un entero 
comprendido entre O y 9, para hacer re- 
ferencia a variables en lugar de a nom- 



/A : termina la copla al le. Z o 
Lo añade al final de la misma. 

/B : Ignora todos los "Z. 

COPY/B FICH1.C0M+F ICH2.COM 
fusión de dos dlcheros binarios. 

COPY FICH1.ASK/B FICH2.ASM/A 
fusión de dos ficheros ASC. 



COPY CON ENSAMBLA. BAT 

ASM %Ü.ASM 

TYPE 7.0. PRN 

DEL %O.PRN 

ED 140 . ASM 
Z 

cr " c "" " "° " c "° r ° "• 



BAT" 



bres absolutos (en el cuadro adjunto se 
muestran varios ejemplos). 

Naturalmente, el uso de ficheros au- 
toejecutables (AUTOEXEC.BAT o 
AUTOEXEC.BAS) es imposible en el 
CP/M, a menos de que se parchee "a 
mano" el sistema operativo, modifi- 
cando el "boot program" de la pista 
cero. 

Retener la fecha y la hora de graba- 
ción de los ficheros tampoco es posible 
en el CP/M, mientras que cualquier 
usuario de MSX, particularmente de 
MSX2, saben de las comodidades que 
ello conlleva. 

Quizá algún lector se está pregun- 
tando por qué no comento las muchas 
funciones que puede llevar a cabo el 
comando PIP.COM del CP/M. Pues 
porque sus ventajas se notan funda- 
mentalmente a la hora de tratar con fi- 
cheros protegidos o "de sistema", cosa 
que no hace sino reparar en parte la 
complicación gratuita de tener varios 
tipos de ficheros. Las otras funciones 
útiles de PIP son el poder controlar el 
formato de los listados que salen por 
impresora y el transvase y fusión de fi- 
cheros binarios con documentos 
" ASC " . Lo primero puede emularse en 
los MSX con un pequeño programa 
BASIC y lo último con las opciones /A 
y /B del comando COPY. 

Otro punto negativo del CP/M es 
que sus ficheros son muy escuetos 
(igual que la orden FILES del MSX- 
DISK-BASIC), al contrario del DIR 
del MSXDOS. Hay que decir, empero, 
que esto se ha modificado en la última 
versión (la 3.0, conocida como "CP/M 



32 



plus"), aunque para obtener un direc- 
torio amplio, como el del MSXDOS, es 
necesario poner el disco del sistema en 
la unidad y cambiarlo a continuación 
por el disquette del que se desea obte- 
ner el directorio. 

En fin, está claro que el MSXDOS 
no ha copiado los defectos del CP/M, 
en lo referente a los comandos y fun- 
ciones que puede utilizar el usuario. 
No obstante, la mayor ventaja del 
MSXDOS está en su funcionamiento 
interno, inspirado en el MS-DOS, y 
que se encuentra muy lejos de la obso- 
lencia del CP/M. Me estoy refiriendo, 
fundamentalmente, a la gran facilidad 
ue da el MSXDOS para leer o escribir 
atos en el disco. Mientras que en el 
CP/M los registros debían ser múlti- 
plos exactos de 128, en el MSXDOS el 
programador puede fijar libremente la 
cantidad de información que desea in- 
tercambiar con el disco, haciendo que 
la lógica de los programas y la veloci- 
dad de proceso se acentúen notable- 
mente. 

Como colofón a esta comparación 
entre ambos sistemas operativos, me 
gustaría decir que con la aparición del 
IBM PC se terminó la hegemonía del 
CP/M y fue la misma compañía del 
MSXDOS, Microsoft, quien con sus 
sistemas MS-DOS realizó el "DOS" 
para la nueva máquina. Pero, ¿cuál fue 
el motivo de que se descartara el siste- 
ma operativo reinante en la época en 
favor del nuevo MS-DOS? Simple- 
mente, el CP/M no pasó el control de 
calidad de IBM. 

LAS CARENCIAS DEL 
MSXDOS 

Si algo se puede reprochar al 
MSXDOS es que esté tan poco dotado 
de utilidades. En teoría, los mejores 
programas de CP/M podrían ser adap- 
tados para que corrieran en el estándar. 
Hoy por hoy, existen versiones MSX 
de programas considerados míticos: 
WORD STAR, DBASE II, MULTI- 
PLAN, etc. Todos estos programas 
fueron desarrollados inicialmente para 
CP/M y alcanzaron, en sus respectivas 
mejoras para MS-DOS, una fama uni- 
versal. 

Pero, aunque hay disponibles bue- 
nos programas, el número de ellos es 
escaso. 

Es corriente oír críticas ante la falta 
de éste o aquél programa que corre en 
una máquina similar al MSX pero no 
en el estándar. En cierto sentido, las 
quejas son fundadas, aunque la mayo- 
ría de las veces no es para tanto. 

Lamentarse de que no se dispone de 
un ensamblador determinado o de un 
compilador de "C" particular o de un 



simple editor de líneas es algo muy dis- 
cutible. En realidad hay versiones de 
muchos buenos programas para MSX, 
aunque, como no, son imposibles de 
encontrar en España. La solución pasa 
por hacerse con ellas en el extranjero o 
en resignarse a lo disponible en el mer- 
cado nacional. 

A título de ejemplo, algunos usua- 
rios han pedido información sobre 
"Macro-ensambladores", como el M80 
de microsolf; compiladores de BASIC, 
como el CBASIC, o editores de líneas, 
como ED o ED80. AI indicarles la no 
disponibilidad de los mismos en el 
mercado, algunos de ellos se lamentan 
de la escasa utilidad del MSXDOS. 
Nada más lejos de la realidad. Por esta 
redacción han pasado ensambladores 
como el ASM.COM de D.R., 
Z80.COM de Zilog, M80.COM de Mi- 
crosolf, ED80.COM de Hisoft; depu- 
radores como DDTMSX.COM, 
ZSIDMSX.COM, MON80.COM, 
DISZILOG.COM, S-BUG.COM; 
amén de multitud de compiladores de 
diferentes lenguajes, así como linkado- 
res. 

Quizá tú mismo hayas buscado algu- 
na vez alguno de los programas ante- 
riores, teniendo el desengaño de no en- 
contrarlos. Pues bien, particularmente 
rehúso utilizar editores de líneas que 
corran en el MSXDOS (en especial el 
insufrible ED.COM del CP/M) y el en- 
samblador con el que trabajo es el 
GEN de Hisoft, que se vende en cinta 
por menos de la mitad de lo que valen 
cualquier otro ensamblador en disco y, 
por si fuera poco, es muy fácil de en- 
contrar. La única molestia que debí pa- 
decer es retocarlo para que funcionara 
en un MSX2 y para que compilara des- 
de el disco. Por lo demás, se trata del 
mejor ensamblador que he probado 
para MSX con mucha diferencia. 

UN EDITOR DE LINEAS 

Si eres uno de esos usuarios que so- 
porta un editor de líneas como 
ED.COM o si careces de él, seguro que 
te será útil el programa que sigue. Se 
trata de aprovechar el editor del intér- 
prete BASIC de los MSX para obtener 
un texto conforme con las exigencias 
de la mayoría (o todos) los compilado- 
res. 

Puesto que el intérprete "tokeniza" 
las líneas de programa que se van te- 
cleando, es necesario tomar medidas 
para impedir que el texto que entremos 
sea adaptado a otro formato que no sea 
el ASC estándar. 

Una solución simple consiste en in- 
tercalar después de cada número de lí- 
nea un apostrofe (') para que el intér- 
prete considere la línea como un co- 



mentario y no la modifique. Luego, 
bastará con construir una rutina que 
elimine este apostrofe junto con el nú- 
mero de línea, para que a la hora de 
grabar el listado tengamos un texto lis- 
to para ser aceptado por un compila- 
dor. 

El programa siguiente "parchea" el 
intérprete BASIC de forma que impide 
que se transforme la línea intercalando 
de forma automática el apostrofe des- 
pués del número de ésta. 



LISTADO BASIC 



10 FORX=&hDOOO TO ÍriDl£F:ftEAD v'$ 
20 POKEX , VAH " &H* +V$ j : 3=5+PE£Kt i » 
30 NEXÍ 

40 IFS<>57457!THENBE£P:CLS:PR¡NT n hAY U 
N ERROR'' 

50 0AÍA21 ,00,00,22, OC ,F0,3E , C3,32. 06, F 
, C 9 , 2 1 , i i , D , E 3 , E 3 , b , 2 3 , 7 £ . F E , 2 . 2 8 . 

FA . , 00 , 56 ,00, 38. 23, 23 , CO , 5b , DO , 30 , FA , 67 
: 28 , i A . 23 1 7£ , ££ . 27 , 2B . 2& . 1 3 . £3 . 2 * . 5E . F 
b ; £0 . 52 , 44 , 40 , 2 i , 50 , FG , 11 , SE . Fb , tü . Éíí . 
23,36,27,Efl 

60 0ATA73.F1 .DI .. FE . 2A , 20 , 04 , CD , 5£ ,00 . A 
F, FE, 21, 00, 09, DO, 67, 21, 50, F5, OS, 7t. FE. 
30,08,FE,3A,3F,C9,0t,0F,0j,4A,ül.C2,&3 
.Di , 1 1 ,F0. DI ,00.32, Di ,21 ,00.00, 22, F3, 
1, 11,01,60, 05.0D.Ei. 00. 36, FF, 00, 13. 13. 
13,13,3E,3A 

70 DATAl2,i3,3E,8í,12,13,3E,E6,l2,i3.C 
D, 25, 01, 3A.F0, 01, FE, 00,28,07. FE, 1A. 28. 
1C, 12, 18, EE.CD, 25, 01, 13, 00, 73, 00,00, 72 
,0i,2A,F3,Di,23,22,F3,0l,0D,75,02,DD.7 
4,03, 18.6F.00, £5,61,36,00, 23, 36, 00, 23, 
22,C2,F6,22 

•60 0A7AC4,F6,22,C6 1 F6,CS,0£.,lb.,C0,4A í 
í , C2 , 68 , 1 , 2 1 , 1 , 80 , 5E , 23 , 56 , AF , 63 . 62 , 
28, 16, 23, 23, 23, 23, 23, 23, EB.CO, 32, Di, £5 
,37,£D,52,C4,FB.00,20 1 7E,El,i8,E2,3E,i 
A.CQ, 07, 01, OE, 10,18, i8,0£, 28, 00,13,01, 
3E, 00,00,07 

SO OATADi, 3E.0A, 11, FO, Ül, 12,00,32,01 ,2 
i, 01 , 00, ÚE, 26, ll,F5, Di, £5, Ú5,C5,0D, £5, 
00, 70, F3, 00, £1,01,01, £1,67, 09, 0E, 27. 21 
,01, 00, 05, C0, 13,01,01, C8,l8,38,0E,lA.l 
6.E0, 21^5,01,36,00,06,08,23,36, 20, 10. 

FB, 06,19,23 

100 QATA36, 00, 10,FB,C9,C5, 36, 00,23,00, 
8i, 01,01, CD, 13, DI, 21, 00,00, 22, 16, 02., 22 
, 18, 02, 23, 22, 03, 02, 09, 21, OB, 01, 18,08,2 
1 ,86,01, 18, 03,21, AA, Di ,7£, 23, 87, 28, 05, 
C0,A2, 00, 18, F6.E0, 76, Fl, 01, 03,51,00, £5 
,00, 36, Di, El 

110 DATAE5, 01 .09,00, 3E,2E,E0,B1,E2,W, 
0l,OE,03,ll,FE,Dl,CD,SF,0l,El,0E,08,ll 
,F6,0i,7E l B7,C8,FE l 2£,C8,E0,A0,E0,l8,F 
5,44,69,73,63,6F,20,6C,6C,65,6E,6F,00, 
4£,6F 1 60,62,72,65,20,69,6£,63,6F I 72,72 
,65,83, 74, 6F 
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MSX Software 



120 0ATA20 , 6F , 20 , 64 , 69 , 72 , 65 , 63, 74 , 6F , 
72,69^,20,6^, 65, 6E.6F.00, 45, 6C, 20 
,66,69,63 ( 68,65,72,6F,20,6E,6F,20,6S,7 
8,69,73,74,65,00 



Sin embargo, las órdenes dadas en 
modo directo (sin número de línea) son 
interpretadas y ejecutadas normalmen- 
te. Además, es posible grabar el texto 
despreciando el número de línea y el 
apostrofe, así como intercalarlos al car- 
gar un fichero desde el disco. Para con- 
seguir lo anterior es suficiente teclear 
una de estas órdenes en modo directo: 



INOMBRE.EXT 
*NOMBRE.EXT 

La primera orden, un nombre de fi- 
chero y su extensión, antecedido por 
un signo de cierre de admiración, sirve 
para grabar el texto en el disco. La se- 
gunda, que usa el asterisco, carga el fi- 
chero especificado en la memoria, ha- 
ciendo todo lo necesario para que el 
sistema lo tome como un programa 
BASIC cualquiera, al añadirle números 
de línea con incrementos de una uni- 
dad, seguidos por el apostrofe. El texto 
a cargar puede también haber sido 
creado con un editor de líneas conven- 
cional. Asimismo, es posible emplear la 
instrucción "renum", "list" o cualquier 
otra de la forma habitual del BASIC. 

Cuando tengas el programa en la 
memoria, tecleando el cargador de da- 
tas o el código fuente en un ensambla- 
dor, debes grabar los bytes con: BSA- 
VE "ED.BIN",&HD000, &HD1EF; 
naturalmente el nombre del programa 
puedes variarlo a voluntad. 

Para hacer operativo el editor, cár- 
galo con: BLOAD "ED.BIN", R. Acto 
seguido aparecerá el esperado "Ok" y a 
partir de entonces en cualquier línea de 
programa que teclees será intercalado 
un apostrofe. 

Si deseas deshabilitar el editor haz: 
"POKE &HFDDB, &HC9". 

La instrucción "POKE 

&HFDDB.&HC3" volverá a conectar 
el editor. 

La longitud del programa y de la 
zona de trabajo es de unos 600 bytes, 
colocados a partir de la dirección 
&HD000. Si empleas dos o más unida- 
des de disco de doble cara que no sean 
la A: y la B:, puedes tener problemas 
con la pila si usas, en modo directo, 
operaciones matemáticas o de cadenas 
complejas. 



CODIGO FUENTE 



1 A 

10 


A AA 

QR6 


AA A AA 

ID000 


20 


LD 


ni ni it 

HL, RUT 


A A 

30 


1 A 

LO 


/ ihf" AAA \ ni 

(IFDOO.HL 


■ A 

40 


i n 

LO 


A AA A 

A,#C3 


r a 

50 


l A 

LD 


(IFDDB),A 


C A 

60 


REI 




*7A Til IT a 

70 RUT: 


. A 

lO 


i ii hpT i mki 

HL, RETURN 


oü 


EX 


(SP),HL 


90 


JP 


(HL) 


100 RETURN: 


RET 


C 


| 1 A | A 1 

no lo; 


INC 


HL 


4 AA 

120 


LO 


A, (HL) 


1 'iA 

130 


CP 




\ á A 

140 


JR 


2, LO 


i r a 

150 


CALL NUHQ 


1 t A 

160 


JR 


CDIRECT 


170 Li: 


INC 


HL 


180 


CALL NUHQ 


1 OA 

190 


JR 


NC,L1 


OAA 

200 


OR 


A 


*H A 

210 


JR 


Z,DIRECT 


AAA 

220 


INC 


HL 


2o0 


LD 


A, (HL) 


t«a 

240 


XOR 




250 


DEC 


HL 


*\f A 

260 


JR 


Z,DIRECT 


OTA 

270 


EX 


DE.HL 


A fi A 

280 


LO 


HL,tF55E+256 


290 


SBC 


HL.DE 


300 


LD 


B,H 


A 4 A 

310 


LD 


CL 


320 


LD 


HL,*F55E+255 


330 


LO 


DE,*F55E+256 


340 


LDDR 


AP A 

350 


INC 


HL 


A/" A 

360 


LO 


(HL)/" 


370 0IRECT: 


LO 


(PILA),8P 


O A A 

380 


CP 




390 


JR 


NZ.QUTQ 


400 


CALL IN 


410 


XOR 


A 


á AA AHTAa 

420 0UTQ: 


CP 


• jt 


á OA 

430 


CALL Z,QUT 


440 RETERR: 


0R 


A 


á r a 

450 


LO 


HL,IF55D 


ár a 

460 


RET 




• TA Ul IUA ■ 

470 NUHQ: 


LD 


A, (HL) 


A AA 

480 


CP 




i A A 

490 


RET 


C 


500 


CP 




510 


CCF 




520 


RET 




530 in: 


LD 


CIF 


540 


CALL H0VN0H 


550 


JP 


NZ,NFQUND 


560 


LO 


DE, RELE 


570 


CALL SETDHA 



580 


LD HL.O 




LD (LINNUH) ,HL 


600 


LD DE, #8001 


610 L6: 


PUSH DE 


620 


POP IX 


630 


LD (IX-1),0 


640 


INC DE 


650 


INC DE 


660 


INC DE 


670 


INC DE 


680 


LD A, 58 


690 


LD (DE), A 


700 


INC DE 


710 


LO A, 143 


720 


LD (DE), A 


730 


INC DE 


740 


LD A, 230 


750 


LD (DE), A 


760 L5: 


INC DE 


770 


CALL RUNO 


780 


LO A, (RELE) 


790 


CP 13 


800 


JR Z, OTRAL 


810 


CP HA 


820 


JR Z.CLOSEI 


830 


LD (DE),A 


840 


JR L5 


850 otral: 


CALL RUNO 


860 


INC DE 


870 


LO UX+Q),E 


880 


LD (IXH),D 


890 


LD HL, (LINNUH) 


900 


INC HL 


910 


LO (LINNUH), HL 


920 


LD (IX*2),L 


930 


LD (IX+3LH 


940 


JR L6 


950 CL0SEI: 


PUSH IX 

1 VMM in 


960 


POP HL 


970 


LD (HD.O 


980 


INC HL 


990 


LO (HL),0 


1000 


INC HL 


1010 


LD (*F6C2),HL 


1020 


LD (tF6C4),HL 


1030 


LD (#F6C6),HL 


1040 


RET 


1050 0UT: 


LD C,tl6 


1060 


CALL H0VN0H 


1070 


JP NZ.ERRN0H 


1080 

A V W V 


LD HL, #8001 


1090 LINEA: 


LO E, (HL) 


1100 


INC HL 


1110 


LD D,(HL) 


1120 


XOR A 


1130 


0R E 


1140 


0R D 


1150 


JR Z,CL0SE0 
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ENTRA 
EN LA 
AVENTURA 
CORRE 
A TODA 
PASTILLA 



1160 


INC HL 


1760 


RET 


1170 


INC HL 


1770 hqvnoh: 


PUSH BC 


1180 


INC HL 


1780 


LD (HL),0 


1190 


INC HL 


1790 


INC HL 


1200 


INC HL 


1800 


CALL OPENFCB 


1210 


INC HL 


1810 


POP BC 


1220 


EX OE.HL 


1820 


CALL BDDE 


1230 


CALL SETOHA 


1830 


LD HL,0 


1240 


PUSH HL 


1840 


LD (FCB*33),HL 


1250 


SCF 


1850 


LD (FCB+35),HL 


1260 


SBC HL, DE 


1860 


INC HL 


1270 


CALL N2, BLOKO 


1870 


LD (FCB*14),HL 


1280 


JR NZ, ERROUT 


1880 


RET 


1290 


POP HL 


1890 nfound: 


LO HL, BFFOUND 


1300 


JR LINEA 


1900 


jr m 


1310 CLOSEQ: 


LO A, HA 


1910 errnoh: 


LD HL, BFNOH 


1320 


CALL UNO 


1920 


JR MES 


1330 close: 


LD C.tlO 


1930 ERROUT: 


LO HL, BFOUT 


1340 


JR BODE 


1940 MES: 


LO A, (HL) 


1350 BLOKO: 


LD C.I26 


1950 


INC HL 


1360 


CALL BODE 


1960 


OR A 


1370 


LD A, 13 


1970 


JR Z, ERROR 


1380 


CALL UNO 


1980 


call m 


1390. 


LD A, 10 


1990 


JR HES 


1400 UNO: 


LD DE, RELE 


2000 ERROR: 


LD SP, (PILA) 


1410 


LD (DE), A 


2010 


JP RETERR 


1420 


CALL SETOHA 


2020 OPENFCB: 


PUSH HL 


1430 


LD HL, 1 


2030 


CALL PREFCB 


1440 


LD C,#26 


2040 


POP HL 


1450 bode: 


LD DE.FCB 


2050 


PUSH HL 


1460 BOOS: 


PUSH HL 


2060 


LD BC,9 


1470 


PUSH DE 


2070 


LD A," • 


1480 


PUSH BC 


2080 


CPIR 


1490 


PUSH IX 


2090 


JP PO.NOH 


1500 


CALL IF37D 


2100 


LD C,3 


1510 


POP IX 


2110 


LD DE.FCB+9 


1520 


POP BC 


2120 


CALL PUTNOH 


1530 


POP DE 


2130 NOfi: 


POP HL 


1540 


POP HL 


2140 


LD C,8 


1550 


OR A 


2150 


LD DE, FCB* l 


1560 


RET 


2160 putnoh: 


LD A, (HL) 


1570 RUNO: 


LD C.I27 


2170 


OR A 


1580 


LD HL, 1 


2180 


RET Z 


1590 


PUSH DE 


2190 


CP v 


1600 


CALL BODE 


2200 


RET Z 


1610 


POP DE 


2210 


LDI 


1620 


RET 2 


2220 


RET PO 


1630 


JR ERROUT 


2230 


JR PUTNOH 


1640 setoha: 


LD CHA 


2240 BFOUT: 


DEFH "Disco lleno" 


1650 


JR BOOS 


2250 


OEFB 


1660 PREFCB: 


LD HL.FCB 


2260 bfnoh: 


DEFH "Noebre incorrect 


1670 


LD (HL) ,0 


o o directorio lleno" 


1680 


LD B,ll 


2270 


OEFB 


1690 L2: 


INC HL 


2280 BFFOUND: 


DEFH "El fichero no ex 


1700 


LD (HL)/ ' 


ritt f 




1710 


DJNZ L2 


2290 


DEFB 


1720 


LO 0,37-12 


2300 RELE: 


OEFB 


1730 L3! 


INC HL 


2310 PILA: 


OEFy 


1740 


LD (HL),0 


2320 LINNUH: 


DEFW 


1750 


DJNZ L3 


2330 fcb: 


OEFS 37 




Otro juego sensacional de 
MANHATTAN TRANSFER, S. A. 



Monitor al día _ 



PLUSDATA: ESPECIALISTAS 
ENEAO 

Les avala un catálogo de más 
de 100 títulos 

Plusdata ofrece actualmente al 
usuario de MSX la gama más 
amplia de programas EAO (Soft 
educativo). El catálogo de Plusdata, 
agrupa, en más de cien títulos, una se- 
lección de programas educativos desde 
Pre-escolar a BUP, y desde cursos de 
Inglés o Basic a programas de gráficos. 

En el citado catálogo además de los 
programas propios de Plusdata, figu- 
ran los de las firmas nacionales más 
prestigiosas. 

Cerca de 5.000 niños en escuelas de 
Catalunya se benefician ya de los Siste- 
mas Plusdata de Enseñanza Asistida 
por ordenador. 

Además, distribuye a nivel nacional 
un Sistema de aula para MSX. 

El mismo puede soportar hasta 32 



puestos de alumnos que comparten 1 ó 
2 unidades de disco flexible y una im- 
presora. 

El profesor puede enviar programas, 
visualizar pantallas, enviar preguntas, 
etc. Su precio es económico y de gran 
fiabilidad y rapidez. Se ha instalado 
este curso con gran éxito en las Escue- 
las Catalanas. 

Para más información dirigios a 
Plusdata, S.A. C/. Gran Via, 661 pral. 
Barcelona 08010. 








TECNICAE 87 



En los locales de la Escuela 
Técnica Superior de 
de Caminos 

Con resultados muy satisfacto- 
rios, finalizaron en Madrid las 
sesiones de "TECNICAE 87" y 
la primera semana de la ingeniería asis- 




EL RECALO DE 



HIT BIT HB20P 



Un ordenador de fácil manejo, 
con amplia gama de progra- 
mas, de compatibilidad univer- 
sal y fiabilidad reconocida: el Hit Bit 
HB 20P, Sistema MSX. 

El hecho de que los mismos progra- 
mas -sea cartucho o cinta- puedan ser 
utÜizados en cualquier ordenador do- 
me Seo que haya adoptado el estándar 
™ es un fuerte incentivo para los 



amantes de la informática Adema , 
existe también la compatibilidad ni- 
vel de periféricos: impresora, unidades 
disco, bola gráfica y py^tick 

Puede conectarse a cualquier teievi 
so convencional e inmediatamente es- 
tará disponible para ser utilizado^ El 
HB 20P incluye los siguientes acceso- 
dos ; Alimentador de 220 v cabkde 
conexión cassette, el manual Ap .ren 
der a programar en Basic MSX y un 

^¿Sfeuido IVA: 24.900 pe- 1 

setas. 



-ir- 

TEOIICfíE'81 



: 




NWMHo « IndUMnc V tMnjII. 



y T tónica (HHMk da educación y Candi). 
Unhnttl minéonlo. de MMrtd. 



t T. • . d. Invadan» de Camino*. Can*» y Kmm 



tida por computador. Se cumplieron 
los objetivos fundamentales previstos 
por sus organizadores, concretados en 
ofrecer a todas aquellas personas inte- 
resadas en acercarse a las nuevas tecno- 
logías CAE, unos conocimientos bási- 
cos destinados sobre todo, a contem- 
plar las aplicaciones tecnológicas de es- 
tos sistemas. Los conocedores y usua- 
rios de los mismos, encontraron en la 
muestra los recientes avances y nove- 
dades futuras tanto en hardware como 
en software. Como complemento, y 
mediante una exposición abierta, se 
exhibieron las últimas realizaciones 
presentes en el mercado en sistemas 
C.A.E. 



CONCURSO DE DISEÑO 
ASISTIDO 



Patrocinado por DSE, SA 



Radio 4", emisora catalana de- 
pendiente de Radio Nacional 
de España, acaba de convocar 
un original concurso basado en el dise- 
ño por ordenador del logotipo de la 
emisora. 

D.S.E., S.A., y Rádio 4 han llegado a 
un acuerdo mediante el cual, la empre- 
sa de informática patrocinará la entre- 
ga de premios ofreciendo: 
2 ordenadores con disco duro "Bond- 

well BW-36" 
4 ordenadores con 2 disquets "Bond- 

well BW-34" 
4 ordenadores portátiles con 2 dis- 
quets "BondwellBW-12". 
2 impresoras Newprint I. 

Todo ello valorado en más de millón 
y medio de pesetas. 

Aquellos que deseen participar en la 
convocatoria, deberán elaborar un 
[programa que dé como resultado la 
imagen ANIMADA del logotipo de 
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Radio 4, y sonorizado con la sintonía 
de la emisora. Los trabajos deberán 
presentarse en formato digital de orde- 
nador, grabado en soporte magnético. 
El concurso estará dividido en tres ca- 
tegorías: "Home computer", "Pe com- 
patibles" y "Similares". El plazo de en- 
trega de trabajos (un máximo de cinco 
por concursante) finalizará el próximo 
día 15 de junio del año en curso. Para 
más información dirigirse a: RNE en 
Cataluña, Radio 4. Paseo de Gracia, 1. 
08007 Barcelona. 



TECNOLOGIA PUNTERA EN 
MONITORES 

Nueva gama SHARP 




Sharp amplía su gama de monito- 
res/receptores con estos dos nue- 
vos modelos: el C-5410 SN y el 
C-5411 SN. Equipados con un tubo de 
imagen plano y cuadrado ("Lynitron 
Plus"), el cual proporciona una imagen 
mucho más natural, reduciendo la dis- 
torsión y los reflejos provenientes de 
otras fuentes luminosas. Su diseño de 
esquinas cuadradas, incrementa la dia- 
gonal del área de visión efectiva en 25 
rnm., comparado con los tubos con- 
vencionales de las mismas dimensio- 
nes. Estas características concurren 
para dar al espectador una visión más 
nítida sin fatigar sus ojos. El número de 
programa, que en la versión C-5410 SN 
se encuentra en la parte frontal del 
mueble y en el modelo C-5411 SN se 
refleja en pantalla, mantiene informa- 
do al espectador sobre el canal que sin- 
toniza. Gracias a su mando a distancia, 
en el modelo C-5411 SN es posible el 
control de 48 funciones, incluyendo la 
puesta en marcha y paro, así como la 




Penguin Adventure 



NUEVAS EMOCIONES 



Presentadas por Konami 

Las últimas novedades de Kona- 
mi, se concretan en tres intere- 
santes cartuchos titulados 
" Wampire Killer", "Penguin Adventu- 
re" y "Gamesmaster Utility". Los dos 
primeros se enmarcan en la línea del vi- 
deojuego de aventuras, ese tipo de pro- 
gramas en los que saber CUANDO uti- 
lizar los recursos que la partida nos 
ofrece, es tan importante como la pro- 
pia habilidad del jugador. En " Wampi- 
re Killer", la clave del juego estriba en 
poder llegar a enfrentarse con Drácula 
en su castillo de Transsilvanya. Lógica- 
mente, antes de medir fuerzas con el si- 
niestro personaje, deberemos eliminar 
a todos sus compinches, energúmenos 
de intenciones imaginables que trata- 
rán de impedir nuestro propósito. Para 
ello contamos con la única pero efecti- 
va ayuda de un látigo. El protagonista 
de "Penguin Adventure", es un avispa- 
do pingüino con una difícil misión que 
cumplir: la princesa Penguette, ha su- 
cumbido ante el virus mortal que arra- 
sa el país de los pingüinos. La única cu- 
ración para semejante mal, se encuen- 
tra en el antiguo paraíso de estos ani- 
males. Un edén del que fueron expul- 
sados por sus actuales moradores, unos 
reptiles voladores que atienden al nom- 
bre de Frisaurios. Nuestra misión con- 
sistirá en guiar al héroe de la ave 

elección entre 39 canales, el reglaje del 
volumen, llamada de canal y selección 
tv/vídeo. Asimismo, los conectores de 
entrada audio/vídeo (que se encuen- 
tran en la versión C-541 1 SN y de ma- 
nera opcional en la C-5410 SN) permi- 



través de gélidas tierras hasta el manza- 
no de oro, conseguir su preciada fruta 
con la cual la princesa sanará y eliminar 
a todos los frisaurios para volver a iris 
taurar el reino libre de los pingüinos. 

"Gamesmaster Utility", es 'la solu- 
ción ideal para todos aquellos aficiona- 
dos que estén interesados en aprove- 
char al máximo sus usados videojuegos 
Konami. Gracias a este nuevo cartu- 
cho, podremos revitalizarlos confirién- 
doles una nueva estructura de juego v 
aumentando sus posibilidades de di- 
versión. En la práctica, "Gamesmaster 
Utility" se coloca en uno de los slots 
conjuntamente con el videojuego esco- 
gido que irá claro está, en otro slot. 

De este modo, nos será posible au- 
mentar hasta noventa y nueve las vidas 
de los protagonistas, congelar la ima- 
gen, acelerar o ralentizar la dificultad 
del juego y un montón más de posibili- 
dades. También ofrece la opción de 
grabar los récords en diskette o cinta 
magnética y efectuar un hard copy de 
sus imágenes. En definitiva, tres alter- 
nativas que contienen todos los ingre- 
dientes necesarios para convertir unos 
simples cartuchos en fuente inagotable 
de diversión para todos los adictos a los 
videojuegos. Importante particulari- 
dad que caracteriza la personalidad de 
la firma nipona, siempre ofreciendo las 
mejores propuestas de entretenimiento 
para la norma MSX. 



ten la unión directa de magnetosco- 
pios, microordenadores, lectores de vi- 
deodiscos, etc., sin esa pérdida de la ca- 
lidad de imagen a través de la señal de 
antena que frecuentemente encontra- 
mos en los televisores convencionales. 
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MSX-Simulacióni 



iPor Willy Miragalli 



EL JUEGO 
DE LA VIDA 



Los ordenadores domésticos, incluidos 
los MSX, se asocian casi exclusivamente a 
juegos o programas de pequeña gestión. 
Sin embargo nuestros ordenadores pue- 
den acceder a aspectos de la informática 
que hace poco eran reservados a los 
MAINFRAMES; este es el caso de la si- 
mulación. 



¿QUE ES LA SIMULACION? 

Los primeros ordenadores fueron 
concebidos como máquinas capaces de 
realizar cálculos a una gran velocidad 
-mucho más lentamente que nuestros 
MSX-. Inmediatamente se asoció a los 
nuevos ordenadores con las dos activi- 
dades que precisan más cálculos de 
tipo repetitivo: la gestión de empresas 
y las aplicaciones matemáticas. 

Sólo bastante más tarde algunos ma- 
temáticos y técnicos en informática se 
dieron cuenta del enorme potencial 
que ofrecían los nuevos aparatos. Utili- 
zarlos para calcular la nómina de una 
gran empresa estaba muy bien; pero 
podían hacer algo más. 

Es de este punto de donde parte la 
informática como hoy la conocemos, 
capaz de realizar cualquier tipo de ta- 
rea, aún aparentemente distante de las 
matemáticas. 

Una de las aplicaciones pioneras 
dentro del mundo de la informática no- 
matemática fue la de la simulación. El 
secreto de la simulación consiste en ha- 
cer que el ordenador responda a una 
simple pregunta. ¿Qué pasaría si...? 

La simulación, por ejemplo, permite 
prever el precio futuro de ciertos pro- 
ductos en función de las actuales tasas 
de crecimiento de precio y otros mu- 
chos datos. El ordenador en este caso 
es capaz de algo más que el mero cálcu- 
lo. Es capaz de decidir. 

Otro ejemplo de simulación, nuestro 
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Figura 3 

En esta figura 

tenemos la 

comunidad 

denominada "Copo 

de Nieve" (3a) que, 

tras 15 generaciones, 
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programa de quinielas. Este programa, 
con los datos sobre los resultados de las 
anteriores jornadas, es capaz de decidir 
cuál es la o las quinielas más favorables 
para esta jornada. Evidentemente el re- 
sultado cíe este tipo de simulación es 
mucho más inexacto que otras simula- 
ciones, ya que el pronóstico de la qui- 
niela no sigue reglas definidas. 



EL JUEGO DE LA VIDA 

Las ideas matemáticas que dieron lu- 
gar más tarde al juego de la vida tienen 
sus antecedentes en los trabajos lleva- 
dos a cabo por J.von Newman en 1950 
y que tenían como finalidad la realiza- 
ción de una máquina capaz de repro- 
ducirse a sí misma. Evidentemente, 



Figura 2. Observamos aquí la evolución de una comunidad inicial que acaba pereciendo en su segunda generación por aislamiento 













































H Célula viva en esta generación 
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para desarrollar esta máquina optó por 
un modelo matemático, la teoría del 
autómata celular. 

Algo más tarde, en 1970, fueron da- 
dos a conocer los trabajos de otro emi- 
nente matemático, John Horton Con- 
way de la Universidad de Cambridge. 
Estos trabajos dieron como fruto lo 
que hoy conocemos como el "Juego de 
la Vida". Su nombre viene dado por el 
parecido que este tipo de estructura 
tiene con una sociedad viviente, en la 
que se producen muertes, defunciones 
y supervivencias según las condiciones 
del entorno de cada célula. 

El juego de la vida consiste en un in- 
menso tablero reticulado (como un gi- 
gantesco tablero de ajedrez). En este 
tablero encontramos un número infini- 
to de recuadros, que llamaremos cel- 
das. Llamaremos, de igual forma, espa- 
cio celular a la totalidad del tablero. 
Cada celda tiene dos estados posibles: 
vida (contiene una célula) o nada (no 
contiene ningún elemento vivo). 

En el juego de la vida, cada célula 
depende de sus vecinos inmediatos 
-como ocurre en cualquier sociedad 
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Figura 1 
Toda celda del 
espacio celular 
cuenta con 8 
vecinas que 
pueden estar o 
no vivas. 



organizada-. Sin embargo en el juego 
de la vida no existen diferencias socia- 
les, todas las células son iguales. El es- 
pacio celular varía con el tiempo a in- 
tervalos regulares, llamados generacio- 
nes. Cada generación las celdas van 
modificando su estado de vida o vacío 
dependiendo de lo que ocurre en cel- 
das vecinas. 

En el juego de la vida las reglas que 
rigen la evolución del espacio de una 
generación a la siguiente son muy sim- 
ples: 

• Una célula viva que tenga dos o 
tres vecinas (vivas) conseguirá sobrevi- 
vir hasta la siguiente generación. 

• Cualquier célula viva rodeada de 
más de tres vecinas morirá por asfixia. 

• Una célula viva rodeada por o 1 
vecinas morirá por aislamiento. 

• Si una celda no contiene a ningu- 
na célula y está rodeada por exacta- 
mente tres células vivas nacerá una cé- 
lula en ella en la siguiente generación. 

Para entender mejor estas reglas pu- 
diera ser interesante ver los dibujos que 
acompañan a este artículo, en este caso 
las figuras 1 y 2. 

Se entiende por vecino de una célula 
a cualquier otra célula que se halle en 
cualquiera de los 8 cuadros contiguos 
al que ocupa nuestra célula. 

Las anteriores reglas deben aplicarse 
al mismo tiempo para todas las células 
del espacio. 

PROGRAMANDO EL 
JUEGO DE LA VIDA 

El juego de la vida es relativamente 



fácil de programar en un ordenador. 
En primer lugar hemos de estudiar 
cómo poder generar el espacio celular 
y más tarde, cómo podemos aplicar las 
reglas de paso de una generación a la si- 
guiente. 

Para simular el espacio celular pode- 
mos utilizar una tabla de 50x50 ele- 
mentos. Esta tabla es fácilmente gene- 
rabie en BASIC gracias a la instrucción 
DIM y puede ocupar unos 5 Kb de me- 
moria. En realidad deberemos utilizar 
dos tablas. Una contendrá el espacio 
celular en una determinada generación 
y otra contendrá, tras los cálculos nece- 
sarios, el espacio en la siguiente genera- 
ción. 

Las reglas del juego de la vida son 
muy fáciles de aplicar por medio de IF 
a nuestro programa. Incluimos un es- 
bozo de cómo debería ser un programa 
del juego de la vida en el listado 1. Os 
dejamos a vosotros la tarea de generar 
el programa completo. Notaréis que el 
programa no está escrito en BASIC, 
sino en lenguaje algorítmico. Este len- 
guaje no existe en ningún ordenador y 
es sólo un medio para poder expresar 
la estructura de los programas de un 
modo sencillo. 



Listado 



110 ' ttt El juego de la vida M 

120 ' 

130 ' 

140 ' Defininos los espacios 

!50 ' original y de resultados 
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Figura 5. Encontramos en esta figura tres de las "constelaciones" más comu- 
nes. Se denomina constelación a la agrupación de comunidades muy cercanas; 
pero que no llegan a tocarse. En primer lugar U E1 semáforo" (5a), "El panal" 
(5b) y "La panadería" (5c). 
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MSX-Simulacióni 

160 ' 

170 DIH A(50,50),B(50,50) 
180 ' 

190 ' INICIALIZAP ESPACIO A(-,-) 
200 1 Col ocaiBos en el espacio 
210 ' A la generación 0. 
220 ' 

230 ' CALCULAR NUEVA GENERACION 
240 ' 

250 FOR *=1 TO 50 

260 FOR Y=l TO 50 

270 ON VECINOS GOTO 320,340,360 

280 ' 

290 ' SI MAS DE 3 VECINOS 
300 ' 

310 B(X,Y)=0' MUERTO 
320 MEXT Y 
330 NEXT X 
340 ' 

350 ' REPRESENTAR GRAFICAMENTE 

360 ' 

370 ' COPIAR ESPACIO B EN A 
'80 ' 

390 FOR X=l TO 50 
400 FOR Y=l TO 50 
410 BíX, Y)=AÍX,Y) 

420 NEXT Y 
430 NEXT X 
440 ' 

450 ' CALCULAR NUEVA GENERACION 
460 » 

470 GOTO 230 
500 ' 

510 ' UN SOLO VECINO 
520 ' 

530 B(X.Y)=0 ; MUERTO 
540 GOTO 320 



Ó10 ' 
620 ' 

630 B(X,Y)=A(X,Y)' SOBREVIVE 
640 GOTO 320 . 
700 ' 

710 ? TRES VECINOS 
720 ' 

730 B(X,Y)=l' NACIMIENTO 
740 GOTO 320 



Con unos sencillos conocimientos 
de BASIC seréis capaces de generar un 
programa capaz de calcular tantas ge- 
neraciones como se deseen de una co- 
munidad de células determinada. ¡Es- 
peramos recibir vuestros programas! 

Vamos a comentar seguidamente al- 
gunos de los aspectos 
del juego de la vida. 
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Figura 4. Esta co- 
munidad (4a) gene- 
ra una de las comu- 
nidades periódicas 
con una mayor be- 
lleza, el pulsar CP 
48-56-72 (4b). 

Un espectáculo único si sois capaces de generar un programa de juego de la vida 
lo suficientemente rápido. 
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Figura 6 
En esta figura una 
délas 

comunidades más 
longevas que 
hemos podido 
localizar. Tras 
dividirse y 
volverse a unir 
en varias ocasiones acaba 
desapareciendo tras 203 
generaciones. 



EVOLUCION DEL JUEGO 
DE LA VIDA 

El juego de la vida ha fascinado du- 
rante mucho tiempo tanto a matemáti- 
cos como a informáticos. Pese a su ex- 
trema simplicidad reúne todas las ca- 
racterísticas que definen a una socie- 
dad real. Entre los más modernos deri- 
vados del juego de la vida están una se- 
rie de programas (desarrollados en 



nuestro país) que permiten la realiza- 
ción de experimentos biológicos con 
cepas de células ¡sin necesidad de que 
existan tales cepas! El ordenador simu- 
la su crecimiento. Todo ello a partir de 



algo aparentemente tan 
nuestro juego de la vida. 

En el juego de la vida existen todo 
tipo de sociedades. Existen sociedades 
que desaparecen rápidamente (ejem- 
plo en la figura 2). Existen sociedades 
que perduran infinitamente (figura 3). 
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Este tipo de sociedades han llegado a 
un equilibrio que sólo puede ser roto 
por la invasión de otra comunidad. 

También encontramos en el juego de 
la vida comunidades periódicas, es de- 
cir, que repiten su forma y su distribu- 
ción a intervalos regulares. 

Existen dos aspectos muy estudia- 
dos del juego de la vida. El primero es 
la existencia de comunidades que evo- 
lucionan constantemente, .sin ser repe- 
titivas ni constantes. Y otro de los as- 



pectos muy estudiados es la razón por 
la que muchas comunidades ganan si- 
metrías, que luego no pierden en el 
paso de su evolución. Pensemos que las- 
comunidades reales (seres vivos) cuen- 
tan también con elementos de simetría 
-en el ser humano parte derecha e iz- 
quierda. 

Otro caso especial muy interesante 
es la existencia de "jardines del Edén". 
Se llama jardín del Edén a aquellas co- 
munidades que no pueden ser genera- 



das por ninguna otra. Sólo pueden 
existir como generación inicial. 

En definitiva, el juego de la vida ha 
causado tal impacto que se ha llegado a 
dar nombre y a clasificar exhaustiva- 
mente a todos los tipos de comunida- 
des a que puede dar lugar. 

Otra curiosidad más, existen en el 
juego de la vida comunidades guerre- 
ras que arrasan a otras mucho mayores 
sin resultar afectadas en lo más míni- 
mo. 



¡¡COMPLETA TU HEMEROTECA DE PROGRAMAS!! 
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N.° 18 - 175 PTAS. 


> < ^ 


-* ■ 
I 




ms xciub 



N.° 19-175 PTAS. E. SOFTWARE • 275 PTAS. N.° 20 - 175 PTAS. 




N.°21-175 PTAS. 
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N.' 22-23 - 350 PTAS. N.° 24 - 225- PTAS. N.° 25 - 225 PTAS. 

¡SI TE HACE FALTA ALGUN NUMERO DE 



N.° 26 - 225 PTAS. N.° 27 - 225 PTAS. N.° 28 - 225 PTAS. 

PIDELO HOY MISMO! 




Para contar con la más completa colección de programas de MSX sólo tienes que recortar o fotocopiar el a 
pon y dirigirlo a Dpto. Suscripciones MSX CLUB DE PROGRAMAS. Roca i Batlle, 10-12. 08023 Barcelona. 



r~ ; BOLETIN DE PEDIDO . 

91, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 1 

1 gastos de envío, por lo que adjunto talón n.° del Banco/Caja " I 
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¡SIN BOMBOS NI PLATILLOS! 



La editorial Manhattan Transfer, S.A. 
Se gana a pulso la confianza del lector. 
Cada una de sus publicaciones tienen el 
objetivo específico de servir al lector/usuario. 




TRANSFER, S.A. 

No se limita a 
llenar páginas 
las llena de contenido 
A la vanguardia de la prensa útil 





CD COMPACT - PCompatible - MSX Extra - MSX Club de Programas 
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KONAMI SOLO EDITA SUS PRODUCTOS 



RECORTA Y ENVIA ESTE CUPON A KONAMI SHOP. 
FRANCISCO NAVACERRADA, 19. 28028 MADRID. 



NOMBRE Y APELLIDOS: 

DIRECCION: 

POBLACION: 



-COD. POSTAL: 
.PROVINCIA:_ 



FORMA DE PACO: CONTRARREMBOLSO 



POR TALON BANCARIO 



Esta Primavera 
Sony da mucho juego 



NUEVOS PROGRAMAS MSX 



MU5IC5TUDIOG, 



FARM KIT 




LAS VEGAS. 

Juego de de- 
tectives. Debe- 
rás recuperar 
una alta suma 
dedinero de un 
«capomafioso». 



SONY. 

ROMA. LA 
CONQUISTA 
DEL IMPERIO. 

La conquista 
de las tierras 
del imperio ro- 
mano. 



LODE 
RUNNER II. 

Excitante juego 
de aventuras y 
prueba de ha- 
bilidad. 



SPACE KIT. 

Para dibujar el 
espacio como 
tú siempre lo 
has imaginado. 



PRINT LAB. 

Diseñador grá- 
fico. Incluye un 
cassette con 19 
interesantes 
trazados y dibu- 
jos. 



GRAPHIC 
MASTER. 

Editor gráfico. 



NUEVOS PROGRAMAS MSX2 




MUSIC 
STUDIO. 

Para compo- 
ner canciones 
sin necesidad 
de tener cono- 
cimientos de 
música. 



KIH0TIC 
C0HKSCTI0K 



FARM KIT. 

Construye y 
pinta la granja 
de tus sueños. 




CHOPPER 2. 

Al mando de un heli- 
cóptero blindado de- 
berás combatir a tus 
enemigos. 



RED LIGHTS OF 


HYDLIDE. 


WORLD 


LAYDOCK. 


AMSTERDAM. 


Programa de acción. 


GOLF. 


Eres el piloto escogi- 


La más excitante par- 


El príncipe debe res- 


Juega al golf como 


do para devolver la 


tida de poker que ja- 


catar a la princesa 


un profesional. 


paz al Universo. 


más hayas jugado. 


con muchas dificulta- 






des. 







S No te los pierdas ! 



KINETIC 
CONNECTION. 

Forma la figura miste- 
riosa atrapando los 
objetos voladores. 



SONY 



HIT BIT 



